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Introdudum 



Almost anything new and different can be exciting for a time. And 
almost all excitement wears off after a while. For many people, own- 
ing their own microcomputer is such an experience. At first there 
seem to be thousands of things to do to make life easier and more 
interesting. For many people, however, the magic fades and the com- 
puter becomes simply a checkbook balancer and game player if it 
doesn't actually end up in the closet. The intent of this book is to 
provide a new infusion of excitement about what you can do with 
your home computer. 

With one exception, the programs in this book are quite short, 
easy to copy, and easy to modify. The text will suggest ways you can 
tailor the programs for your own use— for party games, data analysis, 
school work, or learning to program. The 41 1/2 things to do range all 
the way from a dating program that will match you with a potentially 
congenial date to a mini-word processor, a Dungeons and Dragons 
dice rolling program, an excuse generator, and strategy and music 
games. It includes practical programs such as a guitar tuner and chord 
teacher, a metric converter, and a comparison shopping program. It 
also contains party games and other activities that you can do with 
your friends. Underlying all of these programs are the ideas that you 
can modify a program and change it to suit your purposes and that 
programming can be fun and lead to fun as well. 

The central part of the book provides you with a number of 
simple computer utilities. The most common utilities in our lives are 
gas, electricity, and the telephone. They are utilities in that they can 
be used in many different ways. They provide the energy or the 
instrument and you determine the particular use. The same thing is 
true of computer utilities. They provide a form that you can use in 
many different ways with a simple input of your own. Thus, the 
balloting program in this book can be used for club elections, picking 
the top ten records, doing personal preference polls, etc. The utihty 
gives you the structure and you provide the content. The same is true 
of the graph generating program. It can be used to measure sales and 
inventories, to compare school grades, to illustrate the results of 



science experiments, or for opinion surveys. The text will suggest 
some applications for the utilities and show you how to list and 
change the programs in the book. You should feel free to go beyond 
the text and create your own modifications, and, maybe, build your 
own utilities. 

All of the programs in this book fit on one disk. With the 
exception of the program for the Dozo game, they are easy to copy and 
take up less than two pages of text. It would make sense for you to 
copy and save on disk those programs you want to use or modify. 
Copying the same program more than once is a bore and you can 
always save your original copy as well as your modifications. After 
you copy a program, however, run it several times to make sure that 
some simple copying error didn't slip in. Try all the options the pro- 
grams offer. Play to win, to deliberately lose, and try any way you can 
to trick the program into bombing. We've done this ourselves and are 
confident that the programs work. But, human error always has a way 
of creeping in. We have been careful to eliminate ours and believe it 
makes sense for you to take the extra time to check your work. 

Finally, for the 1/2 of a thing you can do with your computer. 
Actually it is not one-half of a thing but many halves— many ideas 
that you can turn into programs as you become comfortable with 
BASIC. These final ideas are just starters, teasers, suggestions of ways 
in which you can focus the use of your programming skills on creat- 
ing programs others will enjoy using. 
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Word PUn^ 
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J. he 



.he programs in this section all fool around with words They 
range from an anagram generator to an excuse generator and include 
word hunt puzzles, a sentence scrambler, and even an arcade-type 
game that will teach you how to use the keyboard. Many of the 
programs are easily modified and we encourage you to copy them and 
change them in any way you like. 



1 



Joystick word Hunt 

You probably have seen many word hunt puzzles. They consist of a 
square or rectangle of letters in which a number of words are hidden 
either vertically, horizontally, or diagonally, and backwards and for- 
wards. Here is a very simple word hunt grid and the list of words 
hidden in it: 

hidden words: last, cat, rat hidden word grid: 

curl, pot, coat c o r 1 

o a a r 
a s t u 
tope 

The object of the word hunt is to find the words on the list hidden in 
the grid. 

The program for Joystick Word Hunt allows you to choose any 
15 words of up to 15 letters long. Then, the computer automatically 
generates a word grid for you or your friend to solve. Here is a sample 
list and the grid the computer generated. You'll find that even if you 
chose the words yourself it is not easy to find them all in the grid. 



*""* JOVSTICK MORI> HUNT *«*» 



QGBUI-KJIGECC5MUO 
ZLERXPSEACHUJCM 
JUUOSKTNDABCXCQ 
OHORBAXHRMRMKGZ 
VHLNHHAENBUGUBE 
ZaOCTOETOMTRMRE 
ZVMLEYDPOSQUDTC 
ECWZNFMPEXDTOHA 
XUMMAUXVL.HMFPUH 
MQUOFGHEMUMFTMU 
OFUHFFNHKMRFUBM 
RTTGCMAKCOQWZI.I> 
UUL.QHNET JRMOLNR 
TOREXRSTOECSOVU 
CtUBBNQRVQZMSAJIM 



X . 


LOVE 


2 . 


HARE 


3 . 


HATE 


4 . 


FATE 


5 . 


FAT 


6 . 


THXN 


7 . 


CHXN 


8 . 


FUM 


9 . 


FUNNV 


le . 


HUMOR 


ii . 


HUMDRUM 


LZ . 


DRUM 


±3 . 


CRUMB 


J.4 . 


THUMB 


iS . 


DUMB 



You need a joystick in port 1 to play this game. Move the 
flashing cursor on the game board to the first letter of any word you 
find. Press the joystick button. A message will appear: WORD 
NUMBER. Type only the number that corresponds to the word you've 
found. Press RETURN. If you've found the correct match, the word 
will appear in inverse characters on the grid. Keep playing until you 
find all 15 original words. 



100 REM *** JOYSTICK MORB HUNT #** 
110 BOTO 700 

200 GOSUB 900: FOR M=0 TO 14:L=L (M) •!*= 
W*(M»15+1,M*15+L): POSITION 2,&+M:'? M+1 

210 XD=INT (RND ( 1 ) *3-l ) : YD=INT (RND ( 1 ) *3 

-1):IF XD=0 AND VD=0 THEN 210 

220 X=INT (RND ( 1 ) » ( 15- (ABS (XD) ♦ (L-1 ) ) ) ) 

:IF XD<0 THEN X=14-X 

230 Y=INT (RND ( 1 ) » ( 15- (ABS (YD) ♦ (L-1 ) ) ) ) 

:IF YD<0 THEN Y=14-Y 

240 xp=x:yp=y:for t=i to l:if xp<o or 

XP>14 OR YP<0 OR YP>14 THEN 210 

250 POSITION 22+XP,6+YP:6ET #2,K:IF K< 

>32 AND K<>ASC(T«(T,T)) THEN 210 

260 XP=XP+XD:YP=YP+YD:NEXT T:X(M)=X:Y( 

M)=y:xd(M)=xd:yd(M)=yd:for t=i to l:po 

SITION 22+X,6+Y:PUT #2, ASC (T« (T, T) ) 
270 X=X+XD:Y=Y+YD:NEXT T: position 6,6+ 

M:? t*:next m 

300 FOR X=0 TO 14: FOR Y=0 TO 14:P0SITI 
on 22+X,6+Y:BET «2,K:IF K=32 THEN POSI 
TION 22+X,6+Y:PUT #2, INT (RND(1 ) *26)+65 

310 NEXT y:next x: x=o: y=o: ww=o 

400 Z=STICK(0):IF STRIG(0)=0 then 500 

410 IF Z>8 AND Z<12 THEN X=X-1:IF X<0 

THEN X=14 

420 IF 2>4 AND Z<a THEN X=X+1:IF X>14 

THEN X=0 

430 IF Z=10 OR Z=14 OR Z=6 THEN Y=Y-1: 

IF Y<0 THEN Y=14 

440 IF Z=9 OR Z=13 OR Z=5 THEN Y=Y+1: I 

F Y>14 THEN Y=0 

450 IF Z015 THEN POKE 53279,0 

460 POSITION 22+X,6+Y:eET #2,K:P0SITI0 

N 22+X,6+Y:IF K<128 THEN PUT #2,K+12S 

470 IF K>127 THEN PUT #2,K-128 

480 FOR T=l TO 4: NEXT T: POSITION 22+X, 

6+Y:PUT #2, K: GOTO 400 

500 TRAP 520: POKE 764, 255: POSITION 4,4 

:? "WORD NUMBER";: INPUT G:B=G-1 



510 IF X<G)=X AND Y(G)=Y THEN 600 

520 60SUB 910: GOTO 400 

600 XP=X: YP=Y: T*=W* (6*15+1 , G»15+L (6) ) : 

FOR T=1 to L(G): position 22+XP,6+YP:PU 

T #2,ASC(T»(T,T))+12B 

610 POSITION 5+T,6+G:PUT #2, ASC<T»<T, T 

) ) +128: XP=XP+XD (6) : YP=YP+YD <G) : NEXT T: 

GOSUB 910 

620 X(B)=-l:WW=WW+l:IF WW<15 THEN 400 

630 POSITION 4,4:? "YOU DID IT' PRESS 

START" 

640 IF PEEK (53279)06 THEN 640 

650 RUN 

700 OPEN #2,4,0, "S:": DIM W»(225) ,T«( 15 
) , L ( 14) , X ( 14) , Y ( 14) , XD ( 14) , YD < 14) : GRAP 
HICS 0:POKE 752,1: OPEN #1,4,0, "K:" 
800 GOSUB 900: POSITION 2,5:? "ENTER FI 
FTEEN WORDS..." 
810 FOR T=0 TO 14: POSITION 2,7+T:'' T+1 

;".": POSITION 6,7+t:input t»:if t*="" 

THEN T=T-1:NEXT T 

820 L(T)=LEN(T«):W*(T*15+1,T»15+L<T))= 

t»:next t: position 2,5:? "are your wor 

DS correct?" 

830 GET #1,K:IF CHR«(K)="Y" THEN 200 

840 GOTO 800 

900 ? CHR*( 125): POSITION 7,2:? "»»* JO 

YSTICK WORD HUNT *«*": RETURN 

910 POSITION 4,4:? " 

RETURN 
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Anagrams 

An anagram is a scramble of letters. For example, the word and has 
the following anagrams: 

nad 
nda 
adn 
dna 
dan 



Sometimes the anagram of a word gives rise to other words. For exam- 
ple, consider these two sets of anagrams: 



word: top 

anagiams: pot 
pta 
tpa 
opt 
otp 



In this case, two anagrams of "top" are also words— "opt" and "pot." 



word: 


meat 




anagrams: 


team 


eatm 




tema 


eamt 




tmea 


emat 




tmae 


emta 




tame 


etma 




taem 


etam 




aemt 


meta 




aetm 


mate 




amet 


maet 




amte 


mtae 




atem 


mtea 




atme 





Of the 24 variations, only three and at most four (if you accept meta 
as a word) make up words. An interesting and, so far as we know, 
unsolved word problem is whether there is a four letter word all of 
whose anagrams make up other words. You could easily write a com- 
puter program that could generate all the anagrams of any given word 
using string variables. However, the program here is more of a games 
form. You type in any word and the computer scrambles it. Then ask 
a friend to try to unscramble it. The computer will keep score and tell 
your friend when he or she has the correct unscrambling. 

lOO REM #** ANfiBR/iMS *** 

110 DIM M«(30),A«<30),B«(30) 

120 GRAPHICS 0:P0KE 752,1 

130 PRINT CHR»( 125): POSITION 12,3:PRIN 

T "»*» ANAGRAMS »»*" 

8 



140 POSITION 2, 9: PRINT "ENTER YOUR UOR 
D. . . '■ 

150 POSITION 2, llrPRINT CHR*(156) :POSI 

TION 2, 11: INPUT W«:IF W«="" THEN 150 

160 POSITION 2, 9: PRINT "TRY TO SOLVE T 

HIS ANABRAh...": POSIT ION 2, llrPRINT CH 

R«(156) 

200 B*(l)=" ":B«(30)=" ":B*(2)=B»:L=LE 

N(w«):a*="":for t=i to l 

210 R=INT(RND(l)*L)+l:lF B*(R,R)="»" t 
HEN 210 

220 b»(R,R)="»":a*(t,T)=w»(r,R):next t 

:IF A«»W« AND L>1 THEN 200 

230 POSITION 2, llrPRINT A*rB=20-LEN(W* 

)/2r POSITION B,6rF0R T=l TO Lr PRINT CH 

R»(95);rNEXT T 

240 TRAP 240rP0SITI0N 2,14rPRINT CHR» ( 

156): POSITION 2, 14rlNPUT B« 

250 FOR T=l TO LrPOSITION B+T-l,6rIF B 

*(T,T)=W»(T,T) THEN PRINT W«(T,T) 

260 NEXT TrIF B*<>W» THEN 240 

270 POSITION 15, ISr PRINT "THAT'S IT'" 

300 POKE 764,255 

310 IF PEEK (764) =255 THEN 310 

320 POKE 764, 255 r GOTO 130 
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Sentence Scrambler 

This program will take a sentence and scramble all of the words in it. 
For short sentences, the unscrambling is quite easy. For example: 

walk, took a I 

quite easily unscrambles into: 

I took a walk. 

Try this one, however: 

at time the You stars, tell looking by the can 

9 



When you type in the program be very careful about capitals, punc- 
tuation, and spacing. The computer responds to all of these different 
aspects of writing. Spaces between words are particularly crucial in 
mixmg up sentences because sensing spaces is the only way the 
computer can tell where a word ends. The computer cannot read, at 
least yet. A blank space is just another symbol to it, one which, in this 
program, indicates where a unit to be scrambled ends. 

The main functions used in this program are LEN(A$) and 
A$|X,X). LEN(A$) tells you the length of any word you store in the 
computers memory. For example, in Atari BASIC, if you dimension 
A$ and mput the word "FINE" as in the following program: 

10 DIM A$(20) 
20 INPUT A$ 

then LEN(A$)=4 

The function A$(X,X) lets you print out any letter or sequence of 
letters in A$. Thus, using the same example: 

A$(1,1)=F 
and A$(2,3)=IN 

Here is a simple educational program illustrating the use of LEN and 
A$: 

10 DIM A$(26),B$(1) 

20 A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ" 

30 PRINT "HOW MANY LETTERS ARE IN THE ALPHABET-? 

40 INPUT X 

50 IF X= LEN (A$) THEN PRINT "GOOD. NOW TRY THIS" 

60 LET Y=INT(RND(1)*26)+1 

70 PRINT "WHAT LETTER COMES ";Y;"th in the alphabet?" 

80 INPUT B$ 

90 IF B$=A$(Y,Y) THEN PRINT "RIGHT." 

100 IF B$< > A$(Y,Y) THEN PRINT "I'M SORRY YOU MISSED." 

This program checks the length of A$ and matches it with the 
number you put in for X. Then it picks a random position out of A$ 
using the Y variable and asks you which letter corresponds to that 
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position. This is just a simple use of LEN and A$(X,X). Play with these 
functions and look at your BASIC Reference Manual for more infor- 
mation on how to use them. 

Now here is the scrambled sentence program: 



100 REM *** SENTENCE SCRAMBLER *** 
110 DIM L(29),M(29),A*(600),S»(120),B« 
(120):SRAPHICS 0:POKE 752,1 
120 PRINT CHRS( 125) .-POSITION 7. 3: PRINT 

"*»* SENTENCE SCRAMBLER »»♦" 
130 POSITION 2,7:PRINT "ENTER YOUR SEN 
TENCE. . . •• : PRINT : PRINT 

140 POKE 752,0: INPUT S»:POKE 752,1:G0S 
UB 500 

150 A*(l)=" ":A*(600)=" ":A«(2)=A*:B»= 

A*: L=LEN (S*) : c=o: p=i : ee=0 

160 FOR T=l TO L:IF S*(T,T)=" " THEN 2 

CO 

170 IF S»(T,T)="." OR s*(T,T)="!" OR S 

»(T,T) =•■?■• THEN EE=l:SOTO 200 

180 NEXT t:t=t-i:ee=i 

200 L ( C ) =T-P+ 1 : A* ( C*20+ 1 , C»20+20 ) =S» < P 

,T):lF EE=0 THEN C=C+1 :P=T+1 :NEXT T 

300 L(C)=L(C)+l:FOR T=0 TO C 

310 R=INT(RND(l)'»(C+l))+l:IF B«(R.R)=" 

*" THEN 310 

320 B»(R,R)="»":M(R-1)=T:NEXT T 

330 POSITION 2, 7: PRINT "TRY TO UNSCRAK 

BLE THIS, .,": PRINT : PRINT 

340 FOR T=0 TO C: PRINT A* (M (T) #20+1 , M ( 

T)»20+L<M(T)));:NEXT T 

350 POSITION 2, 14: POKE 752,0: INPUT B«: 

POKE 752, 1 

360 IF B*<>S* THEN GOSUB 600: POSITION 

15, 21: PRINT "TRY ASAIN":GOTO 350 

370 POSITION 14, 21: PRINT "YOU DID IT'" 

:F0R J=17 to 9 STEP -1:F0R T=14 TO S 

TEP -2:sound o,j,io,t:next t:next j 

400 POKE 764,255 

410 IF PEEK (764) =255 THEN 410 

420 POKE 764, 255: GOTO 120 

500 FOR T=l TO 8: POSITION 2, 7: PRINT CH 

R*( 156): NEXT T: RETURN 

600 FOR T=l TO 8:P0SITI0N 2,14:PRINT C 

HR*< 156): NEXT T: RETURN 
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Aipfiawiz 

This is the basic shoot em up arcade game in its simplest form. The 
game displays the alphabet at the bottom of the screen. A target 
appears above one of the letters at the top of the screen. You have to 
press the correct letter to hit the target. The letters have a small 
amount of fire power and you will see your hits and misses on the 
screen. You get five points per hit and lose five per miss. 

If you want to play a little code game, take a look at the PRINT 
statement at line 20. It tells the computer to print out the alphabet in 
order at the bottom of the screen. Now, if you changed that line using 
a simple shift code as follows: 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 
ZABCDEFGHIJKLMNOPQRSTUVWXY 

then, if you pressed A the Z would shoot; if you pressed B the A would 
shoot, etc. Your shooting would then be in code. After a while you 
could probably figure out the structure of the code. 

100 REM ##4> fiLPHflMIZ *** 

110 DIM TX(10),TV(10):0PEN #1,4, 0, "K: " 

120 BRAPHICS 5:SETC0L0R 1 , 9,a:SETCOL0R 

2, 0,0: POKE 752, l: PRINT " ABCDEFSH 
I JKLMNOPQRSTUVWX Y Z " 

130 COLOR 1:PL0T 1,39:DRAWT0 1,0:DRAWT 
7S,0:DRAWT0 7S, 39: poke 20,0: poke 19. 
0:P0KE 764,255 ' 

140 TX=INT(RND(1)»26)»2+14:F0R T=0 TO 
10: TX (T) =RND ( 1 > *8-4+TX: TY (T) =RND ( I ) ♦8+ 
7: NEXT T 

150 POSITION TX,ll:PRINT #6S "BB": POSIT 
ION TX,10:PRINT «6;"BB" 

160 POKE 656, 2: POKE 657, 4: PRINT "SCORE 
: ■*;s;" 

170 IF PEEK (764)0255 THEN 200 
180 IF PEEK(19)>14 THEN 400 
190 GOTO 170 
200 GET #1,K:IF K<65 OR K>90 THEN POKE 

702, 64: POKE 694,0: GOTO 170 
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210 K=2«K-116:F0R Y=39 TO 1 STEP -2: CO 
LOR 1:PL0T K,Y: sound 0, 100-2«Y,8,Y/3 
220 IF Y=ll THEN LOCATE TX,Y,A:IF A=l 
THEN 300 
230 COLOR O.-PLOT K,Y:NEXT Y: SOUND 0,0, 

o,o:s=s-5:goto 160 

300 COLOR 2:SETCaL0R 1,4, 8: FOR K=50 TO 
150 STEP 5:V=15-K/10:S0UND 0,K,8,V:S0 
UNO 1,K+5,B,V 

310 PLOT TX(K/10-5),TY(K/10-5):SETC0L0 
R 4,0,V:SETCDL0R 2,0,V:NEXT K 
320 COLOR 0:F0R T=0 to 10: plot TX(T),T 

Y(T):next t:position tx,ii:print #6;" 

": POSITION TX, 10: PRINT #6;" " 
330 SETCOLOR 1 , 9,8: S=S+5: GOTO 140 
400 POKE 656,2:P0KE 657, 17:PRINT "»*» 

GAME OVER »»»";: IF S>HS THEN HS=S 
410 POKE 656, 3: POKE 657, 4: PRINT "»HIGH 
: ";HS;:P0KE 656, 3: poke 657, 21: PRINT '■ 
Pr ess START " ; CHR* ( 253 ) ; : S=0 
420 IF PEEK (53279)06 THEN 420 
430 GOTO 120 
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Creative Notne Macfane 

Did you ever wonder liow people come up with names for computer 
games or businesses or products? Most of the process is free associa- 
tion and fiddUng around with words. The computer can often do this 
as well as people, especially if you make your original lists of words 
interesting enough. This program generates some names you might 
like to use one day. Some of them are COSMOS WEAVER, CHASM 
SPINNER, and VAULT PRODUCER. If you look at lines 310 and 410 
of the program you'll see the DATA statements that provide the 
words for the computer to play with. You can change these with any 
lists you have so long as you remember to separate the words by a 
comma. Line 140 reads a word from the list at 310 and line 1 50 reads a 
word from 410. The combination is what you see printed out. The 
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READ ... DATA .... statement in BASIC allows you to play around 
with lists of data. 

Now try our names and add some twists of your own. 



lOO REM #** CREftTIUE NAME MACHINE *** 

110 DIM A«(20),B«(20) 

120 BR0UP1=12 

130 GR0UP2=10 

140 restore 300: for t=0 to int(rnd(1)* 
groupi):read a*: next t 

150 restore 400: FOR T=0 TO INT(RND(1)* 

GR0UP2>:READ B«:NEXT T 

160 POKE 752, l: PRINT CHR*( 125) :SETCQL0 

R 2, INT(RND(1)*16),2 

170 T=LEN(A»):T=T+LEN(B») 

180 POSITION 20-T/2,10:? A*;" " ; B« 

190 POKE 764,255 

200 IF PEEK (764) =255 THEN 200 

210 GOTO 140 

300 REM **» WORD GROUP 1 »•• 

310 DATA DUNGEON, VAULT, CRYPT, CAVERN, AD 

VENTURE, WORLD, ENCOUNTER, SPACE, CHASM, UN 

I VERSE, MICROCOSM, COSMOS 

400 REM *«» WORD GROUP 2 *♦* 

410 DATA MACHINE, WEAVER, SPINNER, VENTUR 

E , BU I LDER , SYNTHES I ZER , I NVENTOR, CREATOR 

, COMPOSER , PRODUCER 
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Efccusc Generator 

Did you ever wish you had an automatic excuse generator that would 
cover you when you were late for work, forgot to do homework, or 
wanted to get out of a party or meeting? Well, here's an attempt at one. 
Basically, this program consists of an empty letter form in which you 
fill in the particulars. If you don't like the way we've done it, you 
change all of the PRINT statements in the program or add some new 
ones of your own. The program is a phoney personal letter generator. 
You can use it to create personalized business letters, invitations to 
parties, etc. Our excuse for including it in the book was to show what 
a letter or response form is like and how easily it can be changed on a 
computer. 



DEAR PAUI-XD, 

I'M UERV SORRY THAT I DON'T HAVE 

THE TIME. YOU SEE, MY 

BEST FRIEND LOST IT 

WHILE I PICKED FLEAS FROM HIS COAT. 

GEE, I SURE AM SORRY. I MON ' T LET 

XT HAPPEN AGAIN. I PROMISE. 

SINCERELY, 
LIUZD 



lOO REM #*# Excuse e£N£/if)TOR *#* 

110 DIM A»(50),B«(50),C*(50),D*(50).E* 
(50),F»(50) 

120 POKE 752,1: PRINT CHR*(125) :POSITIO 
N 12, 3: PRINT "EXCUSE GENERATOR- 
ISO POSITION 2,6:PRINT "YOUR NAME: "!• 
INPUT A«:IF A*="" THEN A»="ME" 
140 PRINT : PRINT "PERSON TO BET EXCUSE 
: "J : INPUT B»:IF B»="" THEN B»-"TEACHE 
r\ 
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150 PRINT : PRINT "ITEM TO BE EXCUSED: 

";: INPUT c*:iF c*="" then c»=" homework 

■I 

160 PRINT CHR»( 125): POSITION 2,3:PRINT 
"DEAR ";B«;",": PRINT : PRINT "I'M VERY 
SORRY THAT I DON'T HAVE": PRINT 

170 PRINT "THE ";C«J". YOU SEE, MY":P 

RINT 

ISO RESTORE 300: FOR T=0 TO INT(RND(1)* 

7): READ d»:next T: restore 400: for T=0 

TO INT(RND<1>»7):READ e«:next t 

190 RESTORE 500: FOR T=0 TO INT(RND<1)» 

7): READ F»:NEXT T 

200 PRINT D»;" ">E«:PRINT :PRINT "WHIL 

E I ";f*j".":print :print "gee, i sure 

AM sorry. I WON'T LET" 

210 print : print "it happen again. i 
promise.": print :print :print "sincere 
ly,":print :print a* 

220 POKE 764,255 

230 IF PEEK (764) =255 THEN 230 

240 POKE 764, 255: GOTO 120 

300 DATA DOG, DAD, BABY BROTHER, OLDER BR 

OTHER , CAT , BEST FR I END , BOSS 

400 DATA ATE IT, USED IT FOR KINDLING, S 

LOBBERED ALL OVER IT, SHI NED HIS SHOES 

WITH IT, TORE IT TO PIECES 

410 DATA STOLE IT, LOST IT 

500 DATA PICKED FLEAS FROM HIS COAT,WA 

S ON A TRIP, CHANGED HIS DIAPERS, WASN' T 

WATCHING 
510 DATA WAS FEEDING HIM CAT FOOD.STOO 
D BY HELPLESSLY, WAS ASLEEP 
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rhis section contains several number games you may not have 
seen before as well as some conversion and sorting programs you can 
use for many different purposes. However, the first program in the 
section is a challenge that comes from Marlyn Bums, the author of 
the / Hate Math Book and Math for Smaity Pants. We translated her 
challenge into computer form. It can be fun to do similar things by 
taking books on mathematical games and recreations and giving 
those challenges a computer twist. Often, the computer can make the 
game more powerful because it can check challenges quickly, provide 
hints, tally scores, and set up timing devices. 
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Tfte $L00 Word Chailengc 

Here is the challenge in Marlyn Bums' own words: 

"Excellent" is a $1.00 word. Mathematically speaking, that is. So are 
"friendlier" and "grumpy" and "elephants" And so is "discipline," which 
is what it takes to find more of these $ 1 .00 wonders. To find out how 
much a word is worth, you give each letter a cent value: a=$.01, 
b=$.02, c=$.03, and so on up to z=$.26. Then you add the value of each 
letter in a word. 

Check for yourself to make sure the words given above really 
are worth exactly $1.00. Then you're on your own. How about starting 
with your first name? Is it worth $1.00? What about your friends' 
names? Or the town or city you live in? 

The $1.00 word fever has been spreading throughout the United 
States. To date over 500 $1.00 words have been found by addition- 
loving kids across the country. Some have been writing $1.00 
sentences— sentences in which every word is worth $1.00. Some 
examples: "Prevent inflation." "Whenever Henrietta whistled, thirty 
trembling costumed elephants merrily performed." 

Of course, dedicated $1.00 word zealots have brought their 
computers into the search, programming them to calculate the value 
of whatever word they input. Try it. It takes all the drudge out of the 
search. 

Some hints may be useful for getting you started. There is one 
Halloween word that is worth $1.00 (It's not Halloween; that's only 
worth $.95.) There's one Thanksgiving $1.00 word, as well as one 
astrological sign, and one United States coin. There are at least two 
United States cities— one of them in Wisconsin, and the other in both 
Oregon and Maine. To date, one five-letter $1.00 word has been found. 
No one, however, has submitted a word with four letters. (Is it possi- 
ble to have a four-letter word worth $1.00? 

There's a beverage that is illegal for minors to drink that's worth 
$1.00, though it sometimes costs more than that to buy in restaurants 
and bars. There are several zoo animals that are $1.00 words, and at 
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least one underwater creature. Something that rarely strikes twice in 
the same place, so they say, is also a $1.00 word. And there is a 
number that is less than 100 that is worth $1.00 when written as a 
word. 

This program will check to see if your words are $1.00 words. If 
your word doesn't quite make a dollar, the program will also tell you 
how much it is worth using the coding system where A is a penny, B 
two cents, etc. 

100 REM #*# ON£-BOLLAft HORDS **» 
110 DIM A* (20): GRAPHICS 0:POKE 752,1 
120 PRINT CHR«( 125): POSITION 7, 3: PRINT 

"THE ONE-DOLLAR WORD MACHINE" 
130 PRINT : PR I NT : PRINT "PLEASE ENTER 
YOUR WORD. . . "; 

140 INPUT A*: IF A»="" THEN 130 
150 V=0:F0R T=1 to LEN(A*):IF A*(T,T)< 
"A" OR A»(T,T)>"Z" THEN 130 
160 V=V+ASC(A*(T,T))-64:NEXT T: PRINT : 
IF V=100 THEN PRINT A*; " IS A ONE DOLL 
AR WORD!":BOTO 130 

170 PRINT A*;" IS WORTH ";V;" CENTS "• 
GOTO 130 



If you want to make a $2.00 word machine or a half-dollar word 
machine, all you have to do is change the IF-THEN and PRINT com- 
mands on hne 160. Thus, the following changes in line 160 will give a 
Fifty Cents Word Machine: 

160 V=V+ASC(A$(TJ))-64:NEXT T:PRINT:IF V=50 THEN PRINT 
A$:" IS A FIFTY CENT WORD!":GOTO 130 
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Division Homeworker 

Did you ever get frustrated when you were asked to "show the work" 
when you were doing math homework? After all, a calculator or com- 
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puter could do the work. Why bother with the tediousness of long 
division anymore? There is even a rumor that long division is a device 
created by teachers to torture their students with boredom. We've 
come up with a solution to the long division nightmare. Here is a 
program that not merely gives you the answer to a long division 
problem, remainder and all, but also "shows the work." We hope it will 
save you hours of boredom that could be used in more productive and 
pleasurable activity. 

The program has another value. It will take you step by step 
through long division problems and can be a useful way to learn the 
process. 



DXWX^ZON 
HOMEMORKER 


34 


689 




1 23456 
204 






305 
272 






336 
386 
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DXUXDEND: 723456 






I>XWXSOR: ?34 







100 REM *#* DIVISION HOUBtlORKER **# 

110 DIM N»<9),A»(9),T*(9):X=24:Y=4 

120 TRAP 120:P0KE 752,1:PRINT CHR*(125 

):PRINT " DIVISI0N":PRINT "HOMEWORKER" 

IPOSITION 2,19:PRINT "DIVIDEND: "; 

130 INPUT N:A«=STR«(N>: POSITION 3,20:P 

RINT "DIVISOR: ";: INPUT D: IF D>N OR D= 

OR N>999999 THEN 120 

140 POSITION X,Y: PRINT CHR«(124) ; CHR» < 

30) ; CHR* (28) ; CHR« ( 17) ; 

150 FOR T=l TO LEN(A*):PRINT CHR»(18)! 

:NEXT T: position X-LEN(STR«(D)),Y:PRIN 

T D: POSITION X+1,Y: PRINT N: GOSUB 500 

1 60 NS= 1 : QP=o : BP=o : ff=o : N*sA* ( i , i ) 

170 NT=VAL(N»(1,NS)):IF NT>=D THEN 210 

180 QP=QP+l:IF FF=1 THEN POSITION X+QP 

,Y-2: PRINT "0": GOSUB 500 

190 NS=NS+l:lF NS>LEN(A*) THEN R=NT:GO 

TO 600 
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200 N»=A*(1,NS): POSITION 2+X+QP-LEN(N» 

),Y+BP:PRINT N«:G0T0 170 

210 FF=l:QT=INT(NT/D): R=NT-D»QT : QP=QP+ 

l: POSITION X+QP,Y-2: PRINT QT:BOSUB SOO 

220 T»1+X+QP-LEN (STR* (D»QT) ) : POSITION 

T,Y+BP+l: PRINT D*QT:G0SUB 500 

230 POSITION T,Y+BP+2:F0R T=1 TO LEN(S 

TR*(D»QT)): PRINT CHR» ( 18) ; :NEXT T 

240 POSITION 1+X+QP-LEN(STR«(R)),Y+BP+ 

3: PRINT R:60SUB 500 

250 IF NS=LEN(A*) THEN 600 

260 T*=STR» (R) : T* (LEN (T») +1 ) =A« (NS+1 , N 

S+1 ) : POSITION 1+X+QP-LEN (STR» (R) ) , Y+BP 

+3: PRINT T»:N»=T*:G0SUB 500 

270 T»=STR» (R) : T« (LEN (T*) +1 ) =A* (NS+1 , L 

EN ( A« ) ) : A*=T» : NS=LEN ( N» ) : BP=BP+3 : GOTO 

170 

500 POKE 764, 255: FOR K=l TO 50: NEXT K 

510 IF PEEK (764) =255 THEN 510 

520 POKE 764, 255: RETURN 

600 POSITION X+0P+2,Y-2: PRINT "r ";R:B 

OSUB 500:G0T0 120 
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Kabaia Nome Qame 

According to the Kabala, a mystical Jewish treatise about the rela- 
tionship between numbers, letters, and things spiritual, every word 
has a numerical value which determines its sacredness and quality. 
This is especially true for names. We've turned the name/number 
equivalence into a game. Each letter of the alphabet is given a value 
from 1 to 26, A being 1 and Z 26. The names displayed in the game 
have a total value which consists of the sum of the values of their 
letters. Thus, Abe has a value of 1+2+5=8. (Can you think of a name 
with a lower value than Abe?) 

The game works in the following way: A name is displayed on 
the top of the screen and below it four other names are displayed. You 
have to figure out which one of the four has the same value as the 
first name displayed. 
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There is a strategy you might use to help you ehminate some 
names immediately. Look at the original name and see how many of 
its letters are skewed toward the front of the alphabet, how many are 
in the middle, and how many at the end. That should give you an idea 
of whether the value of the whole will be low, medium, or high. For 
example, it is clear that Abe will have a low value and Val a much 
higher one. With this first take, you can scan all the names and 
eliminate those whose values clearly don't match up. 

100 REM *** KfiBfiLfi Nf>H£ 6f)M£ **# 

110 DIM A«(10),T*(10),K»<40),P(2),M(3) 

:OPEN #1,4,0, "K:": GRAPHICS 

200 POKE 752,1:? CHR* ( 125) : POSITION 10 

,2:? "THE KABALA NAME GAME":K*(1)=" ": 

K*(40)= k*(2)=k*:k=i:for t=o to 1 

210 FOR J=0 TO 12: POSITION 4+T»6,6+J:'' 

CHR* (64+K);"=";K:K=K+1: NEXT J:NEXT T 
220 R=INT (RND ( 1 ) »20) : R1=INT (RND ( 1 ) »4) 
230 R2=INT(RND(l)*4):lF R2=R1 THEN 230 
240 RESTORE 500+R:F0R T=0 TO R1:READ T 
*:next t: position 25,6:? T* 
250 RESTORE 500+R:F0R T=0 TO R2:READ A 

*:NEXT t:k»(31,40)=a«:for t=o to 2 
260 p(T)=int<rnd(1)»20):for j=o to 2:1 

F (P(T)=P(J) AND TOJ) OR P(T)=R THEN 
260 

270 NEXT J: RESTORE 500+P(T):FOR J=0 TO 
INT(RND<1)*4):READ T*:NEXT J:K«(T»10+ 

i,t»io+io)=t»:next t:for t=o to z 

280 M(T)=4:NEXT T:F0R T=0 TO 3 

290 M=INT(RND(1)*4):IF M(M)<4 THEN 290 

300 M(M)=T:IF T=3 THEN P=M 

310 NEXT T:F0R T=0 TO 3: POSITION 21,10 

+T«2: PRINT T+l;", ■■;K*(M(T)»10+1,M(T)» 

10+10) :NEXT T:P0KE 764,255 

320 BET #1,K:K=K-49:IF K<0 OR K>3 THEN 

320 
330 POSITION 19, 10+K»2:? "♦":POSITION 
24,10+P*2:F0R J=l TO LEN(A»):? CHR* (12 
8+ASC(A*(J, J)) ) ; :NEXT J 

340 IF KOP THEN FOR T=200 TO 250:S0UN 
D 0,T,10,10:NEXT T:SOUND 0,0,0,0 
350 IF K=P THEN FOR T=20 TO STEP -1: 
SOUND 0,T, 10, 10: SOUND 1 ,20-T, 10, 10:NEX 
T T: SOUND 0,0, 0,0: SOUND 1 ,0, 0,0: X=X+1 
360 Y=Y+l: POSITION 7,20:? "YOU'VE EOTT 
EN ";X;" OUT OF ";Y;"!":IF Y<10 THEN F 
OR T=l TO 1000: NEXT T:60T0 200 
370 POSITION 7,22:? "PRESS START TO PL 
AY ASA IN" 
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380 IF PEEK (53279)06 THEN 380 
390 RUN 

500 DATA EDDIE, ADELE, JAKE, DICK 

501 DATA DIANA, TED, ANN, SAIL 

502 DATA DEBRA, JANE, JOE, ALICE 

503 DATA JIM, DAVE, NEAL, LEO 

504 DATA DIANE, SAM, MABEL, FRED 

505 DATA BILL, BETH, HEIDI, ERIC 

506 DATA KATE, PAT, NICK, GREG 

507 DATA DAVID, JOAN, NEIL, LINDA 

508 DATA MARIA, JANICE, TIM, ALEX 

509 DATA ANDY, RAY, HELEN, TINA 

510 DATA DANIEL, SUE, PHIL, CLARK 

511 DATA BECKY, PETE, BOBBY, KATIE 

512 DATA RON, SARAH, JOHN, D0U6 

513 DATA IRENE, PAULA, GARY, FREDDIE 

514 DATA CATHY, GEORGE, MARY, NANCY 

515 DATA ALBERT, DANNY, PEDRO, JESSE 

516 DATA CHARLES, RUBY, MANUEL, MICKEY 

517 DATA VICKY, HARRY, HENRY, SIMON 

518 DATA TONY, SUSAN, PENNY, JOSHUA 

519 DATA JEREMY, THOMAS, JERRY, HERBERT 

Here are the data statements for the game. We've made lists of 
names of equivalent number value. You add or subtract names so long 
as all the names on a given line have the same value. You can also 
replace a line of your own with animal names or plant names and 
change the nature of the game that way. just be sure to change the 
PRINT commands and check the numerical values of your words. 

500 DATA EDDIE, ADELE, JAKE, DICK 

501 DATA DIANA, TED, ANN, GAIL 

502 DATA DEBRA, JANE, JOE, ALICE 

503 DATA JIM, DAVE, NEAL, LEO 

504 DATA DIANE, SAM, MABEL, FRED 

505 DATA BILL, BETH, HEIDI, ERIC 

506 DATA KATE, PAT, NICK, GREG 

507 DATA DAVID, JOAN, NEIL, LINDA 

508 DATA MARIA, JANICE, TIM, ALEX 

509 DATA ANDY, RAY, HELEN, TINA 

510 DATA DANIEL, SUE, PHIL, CLARK 

511 DATA BECKY, PETE, BOBBY, KATIE 

512 DATA RON, SARAH, JOHN, DOUG 

513 DATA IRENE, PAULA, GARY, FREDDIE 

514 DATA CATHY, GEORGE, MARY, NANCY 

515 DATA ALBERT, DANNY, PEDRO, JESSE 

516 DATA CHARLES, RUBY, MANUEL, MICKEY 

517 DATA VICKY, HARRY, HENRY, SIMON 

518 DATA TONY, SUSAN, PENNY, JOSHUA 

519 DATA JEREMY, THOMAS, JERRY, HERBERT 
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Pitch and Toss 

This game is thoroughly determined by chance. 

Games of chance exist everywhere in the world. Often they are asso- 
ciated with predicting the future or making important decisions 
when there are no reasons to choose one way of acting over another. 
They also are good gambling games since every player is supposed to 
have an equal chance of winning. In our society, the most familiar 
chance games involve dice, playing cards, and spinners like the 
roulette wheel. In other parts of the world, different devices are used. 
For example, throughout the African continent cowrie shells, nuts, 
and elaborately carved wood tokens are commonly used in chance 
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games. The characteristic of these devices is that they have two sides 
like our coins. A number of them are cast and scores are made accord- 
ing to which faces show up. 

For example, there is a game played by the Igbo of Nigeria which 
consists of casting four cowrie shells which can fall back up or open 
side up. 







The best scores are four backs up or four backs down. 

There are 16 possibihties when tossing the four cowries: (U 
back up, D = back down) 



uuuu 


UUDD 


DDUU 


UUUD 


UDUD 


UDDD 


UUDU 


UDDU 


DUDD 


UDUU 


DUUD 


DDUD 


DUUU 


DUDU 


DDDU 
DDDD 



Since the cowries can be considered to look alike, these possibil- 
ities can be simplified in the following way: 

4 up down — 1 way 
3 up 1 down — 4 ways 
2 up 2 down — 6 ways 
1 up 3 down — 4 ways 
up 4 down — 1 way 

Because of this, the following scoring system could be used for 
the game, giving fewer points to the arrangement most likely to 
happen, and more points to the rarer combinations. 



4 up or 4 down 
1 up 3 down 
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4 points 
2 points 



3 up 1 down 2 points 

2 up 2 down i point 

Try the game with cowries, walnuts, or pennies. It is as interesting as 
playing dice and provides more awareness of arrays of figures and 
scoring combinations. 

This game is a computer version of the cowrie game. The com- 
puter will throw five cowries onto the playing board. One side of the 
cowrie will be represented by X and the other side as O. You have to 
guess how many X's will come up on your toss. The game is for two 
people and both players guess on each throw. The scoring is as fol- 
lows: If you guess correctly you get points equal to the number of X's 
that you predicted would come up. If your partner guesses correctly, 
you lose points equal to the number of your guess. If neither of you 
guess correctly there is no score and you go on to the next round. 
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100 REM *** PITCH /iHB TOSS »*» 
110 GRAPHICS OlPOKE 752,1:P0KE 82, 10:P 
RINT : PRINT "OXOXOXOXOXOXOXOXOXOX" 
120 PRINT "X PITCH AND TOSS 0":PRINT 

"OXOXOXOXOXOXOXOXOXOX" : OPEN #1 , 4, 0, "K 
: ":S1=10:S2=10:60SUB 600:G0SUB 700 
200 POSITION 2,20:PRINT "1st Playsr... 

HoM many X's (0-5) ";:GOSUB 400 
210 PRINT K:G1=K:P0SITI0N 2,22:PRINT " 

2nd Player Hom many X's (0-5) "; 

220 GOSUB 400: IF K=G1 THEN 220 
230 PRINT K:62=K 
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240 C=0:F0R T=0 to 4:X=INT(RND(1)*5):P 

= INT <RND ( 1 ) *2> : POSITION 17+X, 1 1+T: PRIN 

T CHR*(79+9»P):IF P THEN C=C+1 

250 NEXT T:IF C=G1 THEN S1=S1+G1:S2=S2 

-B2: POSITION 6, 7: PRINT "WON ■■;G1: POSIT 

ION 26, 7: PRINT "LOST ";B2 

260 IF C=B2 THEN S2=S2+G2:S1=S1-S1 :POS 

ITION 6, 7: PRINT "LOST " 5 Gl : POSITION 26 

,7: PRINT "WON ";G2 

270 GOSUB 600: IF SKI OR S2<1 THEN POS 

ITION 15, 18: PRINT "GAME OVER": PR I NT CH 

R* ( 253 ) : GOSUB 810: RUN 

280 GOSUB 800: FOR T=l TO 3: POSITION 2 

20: PRINT CHR*( 156): NEXT T: GOSUB 700: GO 

TO 200 

400 GET #l,K:K=K-4a:lF K<0 OR K>5 THEN 

400 
410 RETURN 

600 POSITION 2, 5: PRINT "1st Player "; 
Si;" ": POSITION 22, 5: PRINT "2nd Player 

";S2;" ": RETURN 
700 POKE 82, 15: POSITION 15, 9: PRINT "«# 

#######": PRINT "## ##":for t=i td 

5: PRINT "# #":next t 

710 PRINT "## ##": PRINT "»«**«**«» 

" : return 

800 position 15, 18: print "press key" 

810 POKE 764,255 

820 IF PEEK (764) =255 THEN 820 

830 POKE 764, 255: POSITION 15,18:PRINT 

": POSITION 6, 7: PRINT " 
": POSITION 26, 7: PRINT " ": RETURN 
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Dote to Weekik^ 

This is a conversion program. You can enter any date— past, present, 
or future— and this program will tell you which day of the week it 
happened to be. Leap years are also indicated. Using this program, you 
can find out the day you and your friends and family were bom. You 
can find out the days Napoleon, Emma Goldman, and Julius Caesar 
were bom. You can find out what day Christmas will fall on in 2100 
or what day it fell on in 1 166. 
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100 REM *** OflTE TO HEBHVAY *** 
HO DIM D*(9),M*(9) 

120 POKE 752,1: PRINT CHR*(125) rPOSITIO 
N 9, 3: PRINT "DATE TO DAY CONVERSION" :P 
OSITION 2,6:PRINT "MONTH (1-12) "; 
130 INPUT M: PRINT .'PRINT "DAY (1-31) 

";: INPUT D: PRINT 
140 PRINT "YEAR (0- ) ";: INPUT Y:PR 
INT : PRINT 

200 YH=INT(Y/28):YL=Y-YH»2a: RESTORE 30 
0:F0R T=0 to YLIREAD YKlNEXT T 
210 LP=0:IF INT(Y/4)=Y/4 THEN LP=1 
220 N=0:K=0: RESTORE 400: FOR T=l TO M:N 

=n+k:read k:next t:n=n+d-i+yk:if m>2 t 

HEN N=N+LP 

230 N=N-7*INT(N/7) 

240 RESTORE 500: FOR T=0 TO N:READ D»:N 

EXT T 

250 RESTORE 600: FOR T=l TO M:READ M«:N 

EXT t: PRINT M*;" ";D;", "jyj" was a "; 

D«; " . " 

260 IF LP THEN PRINT :PRINT Y; " WAS A 

LEAP YEAR. " 

270 POSITION 14, 20: PRINT "PRESS START" 

280 IF PEEK (53279)06 THEN 280 

290 POKE 764, 255: GOTO 120 

300 DATA 4,6,0,1,2,4,5,6,0,2,3,4,5,0,1 

,2,3,5,6,0,1,3,4,5,6,1,2,3 

400 DATA 31,28,31,30,31,30,31,31,30,31 

,30,31 

500 DATA MONDAY, TUESDAY, WEDNESDAY, THUR 

SDAY, FRIDAY, SATURDAY, SUNDAY 

600 DATA JANUARY, FEBRUARY, MARCH, APRIL, 

MAY, JUNE, JULY, AUGUST, SEPTEMBER, OCTOBER 

, NOVEMBER, DECEMBER 
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President Precedence 

For multiple choice fans, here's a challenge to test your knowledge of 
the Presidential terms of office. A date appears at the top of the 
screen. The names of three Presidents appear by the numbers one, 
two, and three. Press a number on the keyboard to match the correct 
President with his term. 
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100 REM ** PRESIDENT PRECEDENCE »# 
110 DIM T*(30),N*(1200),Y*(360),P(2),M 
(2): OPEN #1,4,0, "K: "IN* (1)=" ••:N*(1200 

)=" ":n*(2)=n*:y*=n*:for t=o to 39 

120 READ T«:N»(1+T»30,30+T«30)=T»:READ 

T*:Y*(1+T»9,9+T«9)=T«:NEXT T 
130 P(0)=INT(RND(1)»40):P(1)=INT(RND(1 
) ♦AO) : P (2) =INT (RND ( 1 ) »40) : IF P ( 1 ) =P (0) 

OR P(2)=P(0) OR P(2)=P(1) THEN 130 
140 POKE 752,1: PRINT CHR* ( 125) : POSITID 
N 10,3:? "PRESIDENT PRECEDENCE" rPOSXTI 
ON 15,6:? Y«(l+P(0)»9,9+P(0)*9) 
150 FOR T=0 TO 2:M(T)=3:NEXT T:POSITIO 
N 2, 10: FOR T=0 TO 2:R=INT<RND(1)*3) : IF 
M(R)<3 THEN T=T-1:NEXT T 

160 M(R)=t:next t:for t=o to 2:k=p(M(t 

)):PRINT T+l;". ";N*(1+K»30,30+K*30):N 
EXT T 

170 BET »1,K:IF K<49 OR K>51 THEN 170 

180 IF M(K-49)<>0 THEN 170 

190 POSITION 16, 18:PRINT "CORRECT": FOR 

T=l TO 500:NEXT T:G0T0 130 
500 DATA George Washington, 17S9- 1797, J 
ohn Adams, 1797-1801, Thomas Jef f erson, 1 
801-1809, James Madison, 1809-1817 
510 DATA James Monroe, 1817-1825, John Q 
uincy Adams, 1825-1829, Andrew Jackson, 1 
829-1837, Mart in Van Buren, 1837-1841 
520 DATA William Henry Harrison, 1841-1 
841, John Tyler, 1841-1845, James K. Polk 
, 1845-1849, Zachary Taylor, 1849-1850 
530 DATA Millard Fi 11 more, 1850-1853, Fr 
anklin Pierce, 1853-1857, James Buchanan 
, 1857-1861, Abraham Lincoln, 1861-1865 
540 DATA Andrew Johnson, 1865-1869, Ulys 
ses S. Brant, 1869-1877, Rutherford B. H 
ayes, 1877-1881, James A. Gar-field 
550 DATA 1881-1881, Chester A. Arthur,! 
881-1885, Grover Cleveland (1), 1885-188 
9, Benjamin Harrison, 1889-1893 
560 DATA Grover Cleveland (2) , 1893-189 
7, William McKinley, 1897-1901, Theodore 
Roosevelt, 1901-1909,WiIliam H. Ta+t 
570 DATA 1909-1913, Woodrow Wilson, 1913 
-1921, Warren G. Harding, 1921-1923, Calv 
in Cool idge, 1923-1929 

580 DATA Herbert C. Hoover, 1929-1933, F 
ranklin D. Roosevelt, 1933-1945, Harry S 
. Truman, 1945-1953 

590 DATA Dwight D, Eisenhower , 1953-196 
1 , John F . Kennedy , 1 96 1 - 1 963 , Lyndon B . 
Johnson, 1963-1969, Richard M. Nixon 
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600 DATA 1969-1974, Gerald R. Ford, 1974 
-1977, Jimmy Carter, 1977-1981, Ronald Re 
agan, 1981-???? 

This program can be modified to match events to dates. For 
example, in the data hnes from 500 to 600 you can put the name of a 
battle with its dates or the name of a great invention with the date it 
was invented. As long as you do not change the structure of the data 
and keep to associating a name with a number you will be able to 
modify this program and make up your own multiple choice quizzes. 
There is one thing to be careful about, however. On line 120, the 
program is set up to deal with 40 data inputs (FOR T=0 to 39) and on 
line 130 to deal with the length of your DATA statement. If you keep 
to the same number of items and same length of items in the program 
you'll have no trouble. If not, you should change the parameters on 
lines 120 and 130. 
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PART III 



IClBudii&ng 
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itelligence Quotient (IQ) implies that there is some objective 
measure of how smart people are. An IQ of 100 is supposed to be 
normal, 140 brilliant, and 75 slow. However, no one knows how accu- 
rate even the most sophisticated tests are. Your IQ has to do with how 
you perform on the tests you take and not with how intelligently you 
function with others and at your work. 

Since the measure of IQ is so test-bound, your score can be 
changed if you practice the skills that the test designers have chosen 
as epitomizing the essence of "intelligence." Usually, these skills have 
to do with memorizing lists, figuring out sequences, estimating 
answers quickly, and knowing how to manipulate strings of symbols. 
This Part provides a number of games and exercises that hone these 
skills. Of course, there is no guarantee that your IQ will be raised by 
playing them but there is a chance that, if you master these modes of 
thinking, you will find it easier to deal with the challenges of IQ tests. 
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13 

Gestait 

The word Gestalt refers to a perceptual whole. When we look at a 
chair or table we do not see its individual parts and then conclude 
that they go together to make a chair or table. We see the chair or 
table as an integrated whole or Gestalt. A Gestalt problem that 
English philosophers debated about 30 years ago led to this computer 
program. The problem was usually phrased this way: 

You are looking at a field of sheep. Exactly how many sheep do you 
see? If a sheep were added or subtracted would you see any more or 
fewer sheep? 

If you do not stop to count the sheep, it would be accurate to say that 
you saw a whole bunch of sheep, not a particular number of sheep. 
You could, however, estimate the number of sheep and, if you had a 
great deal of experience with sheep, could get more and more accu- 
rate. Estimation even within the context of an initially disordered 
Gestalt can be refined and improved. This program gives you an 
opportunity to guess at the number of dots on your computer screen 
without counting them. The computer will tell you how close your 
guess is and then give you another series of dots to guess about. This 
kind of estimation is related to IQ tests in that the ability to estimate 
the probability of an answer makes it possible to eliminate the least 
likely choices of a multiple choice question and, therefore, gives you 
more time to work on problems. 

The program also helps you concentrate on responding to your 
perceptions and refining them. It is practice in looking at and inter- 
preting what you see. 



100 REM **» GESTALT *** 

110 GRAPHICS OrPOKE 752,1: PRINT : PRINT 

"THIS IS AN ESTIMATION GAME. "IPRINT 
120 PRINT "YOU WILL SEE DOTS FLASH ON 
THE SCREEN": PR I NT 

140 PRINT : PRINT "DO NOT TRY TO COUNT 
THE DOTS! ! ":PRINT :PRINT 
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150 PRINT "THE COMPUTER WILL TELL YOU 

HOW CLOSE": PRINT 

160 PRINT "YOUR GUESS IS. AFTER A WHI 

LE YOU": PRINT 

170 PRINT "SHOULD GET BETTER AT EST I MA 

TING THEIR":PRINT :PRINT "NUMBER." 

180 PRINT : PRINT "PRESS SPACEBAR TO BE 

GIN" 

190 IF PEEK (764)033 THEN 190 

200 POKE 764, 255: GRAPHICS 3: COLOR 1 

210 LET Q*INT(RND(1)»25) 

220 FOR Z=l TO a 

230 LET X=INT(RND(1)»40) 

240 LET Y=INT(RND<1)#20) 

250 PLOT X,Y 

260 NEXT Z 

270 PRINT "WHAT IS YOUR GUESS*?" 

280 INPUT S 

290 IF S=Q THEN PRINT "YOU GOT IT.":FO 

R T=l TO 1500: NEXT T:GOTO 110 

300 IF S<Q THEN PRINT "YOU ARE ";G-S;" 

TOO LOW": FOR T=l TO 1500:NEXT T:BOTO 
110 
310 IF Q<S THEN PRINT "YOU ARE ";S-Q;" 

TOO HIGH": FOR T=l TO 1500: NEXT T:GOTO 

110 



WHAT IS VOUR GUESS? 



This program may put too many dots on the screen at the same time 
or run too quickly for you. If you want fewer dots on the screen to 
begin with, you can change the value of Q on line 210: 
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210 LET Q=INT(RND(1)*25) 

For example, if you change the 25 at the end of the line to 5, you'll get 
a maximum of 5 dots and if you change it to 10 you'll get a maximum 
of 10. 

If you want to slow the program down, you can put a pause loop 
such as 

FOR X=1 TO 500:NEXT X 

into the program after you plot the points (line 250). This line could 
be numbered 255 so it would come after the plot command and yet 
remain within the loop. 
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Ttash line 

Flash Line is a length estimating program. It flashes two lines on the 
screen and asks you which one is longer. If you get the correct answer, 
it gives you another set of lines. If you get it wrong, it gives you 
another chance. Most of the challenges of this program are easy to 
answer once you get the rhythm of looking and inputting your 
answer. However, the game can be speeded up by changing the pause 
loops at lines 1 70 and 210. You can also change the length of the lines 
by reducing 160 in lines 1 10 and 120. When you reduce the size of the 
line the game gets more complex because the sizes of the lines don't 
vary as much. 

Notice that line 130 eliminates the possibility of the computer 
displaying two equal lines. The routine of which this is a part can be 
very useful when you want to develop games that generate unequal 
quantities. Here is that routine: 

110 LETX=INT(RND(1)*160) 
120 LETY=INT(RND(1)*160) 
130 IF X=Y THEN GOTO 110 
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In effect, line 130 returns the program to line 1 10 if X and Y are the 
same; then new random numbers are chosen. 

100 REM **# FLASH LINE *** 

110 LET X=INT(RND(1)»160) 

120 LET Y=INT(RND(1)»160) 

130 IF X=Y THEN GOTO 110 

140 GRAPHICS 7: COLOR 1 

ISO GOSUB 600 

160 PLOT 0,30:DRAWTD X,30 

170 FOR A=l TO 300:NEXT A 

180 GRAPHICS 7 

190 GOSUB 600 

200 PLOT 0,60:DRAWT0 Y,60 

210 FOR B=l TO 300: NEXT B 

220 GRAPHICS O 

230 GOSUB 600 

240 PRINT "TYPE 1 OR 2 " 

250 INPUT Z 

260 IF Z=l THEN GOTO 400 

270 IF Z=2 THEN GOTO 500 

400 IF X>Y THEN PRINT "RIGHT. HERE'S 

ANOTHER ONE.": FOR C=l TO 500: NEXT C:GO 

TO 110 

410 IF Y>X THEN PRINT "TAKE ANOTHER LO 

OK.":FOR C=l TO 500:NEXT CrGOTO 140 

500 IF Y>X THEN PRINT "RIGHT. HERE'S 

ANOTHER ONE. ": FOR C=l TO 500:NEXT C:GO 

TO 110 

510 IF X>Y THEN PRINT "TAKE ANOTHER LO 

OK.": FOR C=l TO 500:NEXT C:G0T0 140 

600 PRINT "WHICH LINE IS LONGER, THE Is 

t OR 2nd?": RETURN 
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THd Tou See It? 

Here is a third estimating game. This uses the Atari Graphics 2 mode 
to print big stars. The program moves the stars around the screen in a 
random way using the POSITION statement. An interesting percep- 
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tual experiment would be to see whether substituting other symbols 
for ♦ changes the difficulty of the challenge. For example at line 180: 

180 POSITION X,Y:PRINT #6;"*" 

try to change the "•" to T or "m" or "$" or any other symbol and see 
whether the nature of the challenge changes. 

100 REM *#* DID you SEE IT? #*» 

110 GRAPHICS 2: COLOR 1 

120 POKE 752, l: PRINT 

130 S=INT(RND(1)*10)+1 

140 PRINT CHR»( 125): PRINT "HOW MANY ST 
ARS DO YOU SEE?" 

150 FOR M=l TO 500: NEXT M 

160 FOR W=l TO S 

170 X=INT(RND(1)*20):Y=INT(RND(1)»10) 

ISO POSITION X,Y:PRINT »6;"»" 

190 FOR R=l TO 75: NEXT R 

200 POSITION X,Y:PRINT #6; " " 

210 NEXT W 

220 INPUT G 

230 IF G=S THEN PRINT "YOU GOT IT!":FD 

R M=l TO 500:NEXT M:GOTO 130 

240 IF GOS THEN PRINT "TRY AGAIN. ":F0 

R M=l TO 500: NEXT M:GOTO 140 
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Memory Musde Bidider 

This challenge begins by showing you two digits to memorize. If you 
can type them in correctly you will then be shown three digits and so 
on until your mind is overcome with numbers. When you finally 
miss you will be assigned one of the 15 ranks of memory power we 
have built into the program. Repeating number sequences occur on a 
number of individually administered IQ tests and, with some training, 
you can become a memory master. The memorization of sequences is 
also a good exercise in the development of concentration. 
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100 REM * MEMORY MUSCLE BUILDER * 
110 DIM A < 15), T* (30): OPEN #1,4,0, "K:": 
N=l 

120 GRAPHICS OIPOKE 752, 1: POSITION 7,2 
: PRINT "* MEMORY MUSCLE BUILDER *" 
130 POSITION 2, 6: PRINT "WATCH CAREFULL 

y...":for t=i to 150: next t 

140 position 2, 8: for t=0 to n:a<t)=int 

(RND(1)*io):print A(T);" ■';:next t:for 

T=l TO 100+N*300:NEXT t 

150 position 2, 8: for t=0 to n: print "? 
";:next t 

160 POSITION 2, 10:PRINT "NOW, ENTER TH 

E NUMBERS YOU SAW": POSITION 2,12 

170 FOR T=0 TO N 

ISO GET #1,K:K=K-48 

190 IF K<0 OR K>9 THEN 180 

200 PRINT KJ" ";:IF K<>A(T) THEN 300 

210 NEXT T: POSITION 2, 14: PRINT "WOW, W 

HAT A MEMORY! ":N=N+1: IF N=16 THEN 400 

220 FOR T=l TO 750: NEXT T:GDTO 120 

300 position 2,14:print "oops! the nu 

mbers were..." 

310 position 2,16:f0r t=0 to n:print a 

<T);" ";:next t 

320 restore 500+n-l:read t*: position 2 

,ia:PRiNT "YOUR RANK: ";t*:for t=i to 

2000:NEXT T:RUN 
400 POSITION 2,16:PRINT "INCREDIBLE! 
YOU MUST BE A COMPUTER! ":PR I NT :END 

500 DATA NOVICE CLASS 2 

501 DATA NOVICE CLASS 1 

502 DATA INITIATE CLASS 2 

503 DATA INITIATE CLASS 1 

504 DATA AVERAGE CLASS 2 

505 DATA AVERAGE CLASS 1 

506 DATA MEMORY WHIZ CLASS 2 

507 DATA MEMORY WHIZ CLASS 1 
SOB DATA MASTER CLASS 2 

509 DATA MASTER CLASS 1 

510 DATA MEMORY MASTER CLASS 2 

511 DATA MEMORY MASTER CLASS 1 

512 DATA GRANDMASTER 

513 DATA PRODIGY 

514 DATA GENIUS 



If you look carefully at this program you will see that the varia- 
ble N indicates how many numbers you guessed correctly and at hne 
320, is used to assign you a rank. The assignment of ranks depends 



40 



upon a READ...DATA... command in which each rank becomes a 
single data statement as hsted below: 



500 DATA NOVICE CLASS 2 

501 DATA NOVICE CLASS 1 

502 DATA INITIATE CLASS 2 

503 DATA INITIATE CLASS 1 

504 DATA AVERAGE CLASS 2 

505 DATA AVERAGE CLASS 1 

506 DATA MEMORY WHIZ CLASS 2 

507 DATA MEMORY WHIZ CLASS 1 

508 DATA MASTER CLASS 2 

509 DATA MASTER CLASS 1 

510 DATA MEMORY MASTER CLASS 2 

511 DATA MEMORY MASTER CLASS 1 

512 DATA GRANDMASTER 

513 DATA PRODIGY 

514 DATA GENIUS 



If you want to create your own ranks, all you have to do is list the 
program and change the data lines to any titles you choose. If you 
want to create a subroutine in another program that uses a ranking 
system, all you have to do is adapt lines 320 to 514 for your own 
purposes. 
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Mu^ Sftot 



Mug Shot is a different kind of memory game. Mug shots are face 
photos that victims of crime are given in order to identify criminals. 
In this program, the computer creates a face for you to look at for a 
while and then clears the screen and challenges you to recreate the 
face from a choice of eyes, noses, and mouths. After you think you 
have successfully reconstructed the face, the computer shows you the 
original face next to your reconstruction. This program provides a 
deceptively complex challenge and gives a sense of how hard it is to 
reconstruct a face from memory. You can study this program and add 
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a number of other features to the face. For example, you can put on 
eyebrows or hair, or even make a whole series of different shaped 
faces (ovd, round, squarish, etc.). 

This propm uses CONTROL Graphics in Graphics to create 
the faces. It, therefore, doesn't use DRAWTO or PLOT statements 
rS^lt?i printing out each CONTROL character, it uses the 
CHR$(X) function which uses the ASCH numbers for each symbol on 
your Atan keyboard. Consult Appendix C of your ATARI BASIC 
Reference Manual for a chart of ASCII numbers. 

Here is a simple way to understand how CHR$(X) and the ASCH 
codes for graphics characters work. Youll notice on the chart that 

T Tlnu u '' f.""'^'* °° *^^ ''^"^^^ ^y tyPi^ ^^ [CTRLKHJ has 
the ASCII number 136. You can have your computer print this char- 
acter in two ways: 

PRINT [CTRL][H] 



or 



PRINT CHR$(136) 
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If you look at the Mug Shot program you will find many uses for 
CHR$ that you can understand by using the ASCII chart. Also, as an 
exercise, try to draw one of the faces in the program using CHR$ 
statements. 



MUGSHOT MEMORY TE^T 



REMEMBER THI1S MAN'S FACE, 



MUGSHOT MEMORY TEST 




SORRY, THAT'S MOT THE MA> 



MUGSHOT MEMORY TEST 




OKAY, DO YOU RECOGNIZE THE NOSE 

2 . ^J 
3. ■ 



li.i Ii.; 



Hill ' 



."lll'i'f 
I II II' ' 

I'!!'". I 

I il'll , 

I i'l!'i,' ' 



I 

t ; t I t t 
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100 REM **# HUB SHOTS *»* 

110 GRAPHICS 0:P0KE 752, 1: PRINT 

120 DIM B*(54),K*(5),A(2),B(2),M(2),M» 

<3):F0R T=1 to 54: read K:G«(T,T)=CHR*( 

K):next t:open #1,4,0, "K:- 

200 PRINT CHR*( 125): POSITION 10,2:PRIN 

T "MUQSHOT MEMORY TEST" 

210 BOSUB 600:G0SUB 610: FOR T=0 TO 2: A 

(T)=int(rnd<i)»3):next t:gosub soo 

220 POSITION 6,16:? "REMEMBER THIS MAN 

'S FACE ":F0R T=1 to 750: NEXT T:GOS 

UB 610: BOSUB 700: FOR T=0 TO 2:Z=M(T) 
230 POSITION 2,16:? "OKAY, DO YOU RECO 
BNIZE THE ";: RESTORE B90+Z:READ K»:? K 

»;"? ":for j=o to 2: poke 82,2 

240 POSITION 2,18+J*2:PRINT J+l;". "; 
G*(Z»18+J*6+1,Z»18+J»6+6):NEXT J 
250 GET #1,K:IF K<49 OR K>51 THEN 250 
260 B(Z)=K-49:P0SITI0N 9,8+2»Z:PRINT G 
*(Z*18+B(Z)»6+1,Z*18+B<Z)»6+6):NEXT T 
270 FOR T=l TO 7: POSITION 2,16:? CHR« ( 

156):next t:bosub 500:for t=o to 2: if 

A(T)=B(T) THEN NEXT T:GOTO 300 
280 POSITION 7,16:? "SORRY, THAT'S NOT 
THE MAN. ": FOR T=200 TO 250 STEP 2: SOU 
ND 0,T,10,10:NEXT T:G0T0 400 
300 POSITION 13,16:? "THAT'S THE MAN'" 
:F0R T=1 to S:F0R J=20 to STEP -l:SO 
UND 0,J,10, 10:NEXT J:NEXT T 
400 SOUND 0,0, 0,0: POKE 764,255 
410 IF PEEK (764) =255 THEN 410 
420 POKE 764, 255: GOTO 200 
500 FOR T=0 TO 2: POSITION 25,8+2»T:PRI 
NT B*(T»18+A(T)*6+1,T«18+A(T)*6+6):NEX 
T T: RETURN 

600 POKE 82, 7: POSITION 7,6:G0SUB 900: R 
ETURN 

610 POKE 82, 23: POSITION 23,6:G0SUB 900 

: RETURN 

700 M»=" ":FOR T=0 TO 2 

710 R=INT(RND(l)»3):S=R+l:IF M»(S.S)=" 
*" THEN 710 

720 m«(s,S)="*":m(T)=r:next t: return 

800 DATA 8,10,32,32,8,10,32,20,32,32,2 

O, 32, 160, 148, 32, 32, 160, 148 

810 DATA 32,32,160,160,32,32,32,32,139 

, 140, 32, 32, 32, 32, 153, 25, 32, 32 

820 DATA 32,18,18,18,18,32,32,26,18,18 

, 3, 32, 32, 32, 18, 18, 32, 32 

890 DATA EYES 

891 DATA NOSE 

892 DATA MOUTH 
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900 ? CHR»(17);:F0R T=1 to B:? CHR«(18 

);:next t:? chr»(5):for t=i to T.'y chr 
*(124)j:for j=i to a:? ■■ ";:next j 

910 ? CHR* (124): NEXT T:? CHR»(26) ; :FOR 
T=l TO 8:? CHR* (18);: NEXT T:? CHR* (3) 
: RETURN 
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Niuin6ers Kimner 

In this game you are presented with a grid consisting of 20 stars as 
well as 20 blanks at the bottom of the screen. The numbers from I to 
20 have been hidden under the stars randomly. The game is played 
with a joystick in port 1. Using the joystick, you can move around the 
grid. When you press the button on the joystick a number will appear 
under the star you are currently on. You goal is to place the numbers 
on the blank spaces at the bottom of the screen in order from 1 to 20. 
When you find 1, press the button and a 1 will appear in the first 
blank on the upper left. When you find 2 press the button and a 2 will 
appear in the blank to the right of 1. You have to remember what is 
under the stars that you have tested out in order to get all 20 numbers 
before your time runs out. There is a timer built into this program as 
well as a score keeper. The timer sets the length of a turn to one 
minute. The scorer will record your highest score. 

This is a memory development game— one that involves the 
kinds of skills called upon when you are asked about details of stories 
you have read or pictures you have seen. It is possible, after a while, to 
register all of the numbers that you land on and solve the puzzle in 
half the time you are allowed. 

The timer in the program is controlled by two lines, 160 and 
290. There are three memory locations in your Atari 800 that control 
what is called a Hj^ clock that can be used for many different pro- 
grams. They are locations 1 8, 19, and 20. A jiffy is I/60th of a second. 
Location 20 counts up to 256 jiffies or about 4 seconds. Each 256 
jiffies (or four seconds) is recorded in memory location 19 which can 
count 256*4 seconds. Memory location 18 records cycles of memory 
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location 19 and, therefore, units of 4*256*256 seconds. You can think 
of location 20 as counting seconds, 19 as counting hours, and 18 as 
counting days. The reason the number 256 is involved is that the 
Atari 800 is an 8-bit byte machine; that is, each memory location is 
one unit (called a byte] of eight on/off switches. Using base 2 these 
eight switches can store up to 256 different numbers. 
Now take a look at Une 290. It reads: 

290 IF PEEK(19) > 15 THEN GOTO 500 

PEEK( 19) tells you how many cycles of 4 seconds' length ea.h location 
19 has recorded. Fifteen cycles of approximately 4 seconds duration 
give you just about 15*4 or 60 seconds— the one minute the timer 
allows. When location 19 goes beyond the recorded minute, the pro- 
gram jumps to line 500 which stops the game and prints out your 
score. 

If you want to change the timer to 2 minutes, all you have to do 
is rewrite line 290 as follows: 

290 IF PEEK(19) > 30 THEN GOTO 500 

Try it and also try to speed up the game by setting location 19 to 30 
seconds. 

The other line involved with the keeping is line 160. It resets 
the clock to before you begin a new game. These two lines can be 
used in any programming context where you want to control the 
time. 



NUMBER RUMMER 



i li'l " 



liiititiii 



46 



100 REM *** HUHBER RUNHER *** 

110 DIM M»(20),PX(4,3),PY(4,3),N(4,3): 

BRAPHICS 0:P0KE 752, 1:SETC0LDR 2,12,4: 

SETCOLOR 4, 12,4:SETC0L0R 1,0,12 

120 PRINT CHR»(125):P0SITI0N 14,1:PRIN 

T "NUMBER RUNNER" :M«="0000000000000000 

oooo":for x=o to 4: for y=o to 3 

130 N=INT(RND(l)*20)+l:IF M*(N,N)="1" 
THEN 130 

140 M«(N,N)="1":N(X,Y)=N:PX(X,Y)=X*4+1 
2:PY(X,Y)=Y*4+4: POSITION PX (X, Y) ,PY (X, 
Y): PRINT "»":NEXT Y:NEXT X 
150 FOR Y=20 TO 23 STEP 3: FOR X=0 TO 2 
7 STEP 3:P0SITI0N 6+X,Y:PRINT CHR*(13) 

;CHR»(i3);" "5:next x:next y 

160 POKE 19,0: POKE 20,0: X=2: Y=l :RX=3:R 

y=19:r=i 

lao IF STRIG(0)=0 AND N(X,Y)>0 THEN 40 
O 

190 T=STICK(0):IF T=15 THEN 250 

200 IF T>S AND T<12 THEN X=X-1:IF X<0 

THEN X=4 

210 IF T>4 AND TO THEN X=X+1:IF X>4 T 

HEN X=0 

220 IF T=10 OR T=14 OR T=6 THEN Y=Y-1: 

IF Y<0 THEN Y=3 

230 IF T=9 OR T=13 OR T=5 THEN Y=V+1:I 

F Y>3 THEN Y=0 

240 FOR T=36 TO O STEP -4 f SOUND 0,T, 10 

,12: NEXT T 

250 POSITION PX(X,Y),PY(X,Y):IF N(X,Y) 

>0 THEN PRINT " ";:BOTO 270 

260 PRINT "O" 

270 FOR T=l TO 50: NEXT T: IF N(X,Y)>0 T 

HEN POSITION PX(X,Y),PY<X,Y>:PRINT "*" 

:B0T0 290 

280 POSITION PX(X,Y),PY(X,Y):PRINT " " 

290 IF PEEK<19)>15 THEN 500 

300 GOTO 180 

400 POSITION PX(X,Y),PY(X,Y):PRINT N(X 

,Y> :60SUB 600 

410 IF STRIG(0)=1 THEN 410 

420 IF N(X,Y)<>R THEN POSITION PX(X,Y) 

,PY(X,Y): PRINT "» ":G0SUB 600: GOTO 180 

430 RX=RX+3:IF RX>34 THEN RX=6:RY=RY+3 

440 POSITION RX,RY: PRINT R:R=R+l: POSIT 

ION PX(X,Y),PY(X,Y):PRINT " ":F0R T=2 

55 TO O STEP -5: SOUND 0,T,10,12 

450 NEXT T:S0UND 0,0,0, 0:N(X,Y)=0: IF R 

<21 THEN GOSUB 600: GOTO 180 

500 POSITION 14,17:PRINT "YOUR SCORE: 

"»R-l:IF R-1>HS THEN HS=R-1 
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510 position 14, 18:print "hish score: 
"}Hs:gosub 600: for t=i to 200: next t 
520 if stri6(0)=0 then 120 

530 GOTO 520 

600 IF STRIG(0)=0 THEN 600 

610 RETURN 



A Paxiscfor Mutation 
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MecEtolive Images 



Here is a program that you can relax with. It generates different colors 
and images that show off the use of [CRTL] graphics and the SET- 
COLOR function of the Atari and provide a relaxing, slowly changing 
visual experience to savor. 

4S 



100 REM *** MEDITATIVE IHftGES **» 

110 GRAPHICS 0:PDKE 752,1: PRINT :SETCO 

LOR 2,0,0:P0KE 82,0:DIM 1(8) 

200 FDR Y=0 TO 8 STEP 2 

210 LI=INT(RND<1)»5) 

220 IF LI=I(Y) THEN 210 

230 I(Y)=LI:RI=LI:IF LI>2 THEN RI=7-LI 

240 FOR X=0 TO Y STEP 2 

250 POSITION IB-X, 10-Y+X:G0SUB 500+LI 

260 POSITION 18-X,12+Y-X:G0SUB 500+LI 

270 POSITION 20+X, 10-Y+X:G0SUB 500+RI 

280 POSITION 20+X,12+Y-X:G0SUB 500+RI 

290 NEXT X:F0R T=1 TO 350: NEXT T:NEXT 

Y 

300 SETCOLOR 2, INT (RND (1 )»16) ,2: SETCOL 

OR 1,0, INT(RND(1)*9)+6:G0T0 200 

500 PRINT CHR*(8);CHR*(10> ;CHR«(30) ;CH 
R» (30) ; CHR* (29) ; CHR» ( 138) ; CHR* ( 136) : RE 
TURN 

501 PRINT CHR»(136);CHR»(138);CHR*(30) 
; CHR* (30) ; CHR* (29) ; CHR* (10) ;CHR*(8) :RE 
TURN 

502 PRINT CHR*(7);CHR*(6)!CHR*(30);CHR 
* (30) ; CHR* (29) ; CHR* (6) ; CHR* (7) : RETURN 

503 PRINT CHR* (7); CHR* (7); CHR* (30); CHR 
* (30) ; CHR* (29) ; CHR* (6) ; CHR* (6) : RETURN 

504 PRINT CHR* (6); CHR* (6); CHR* (30); CHR 
* (30) ; CHR* (29) ; CHR* (7) ; CHR* (7) :RETURN 




' i 'ii.i 
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The SETCOLOR function built into Atari BASIC gives you con- 
siderable control over the 128 colors that the Atari can generate. It 
has three variables: 

SETCOLOR A,B,C 

The A variable refers to the color register. In the case of this program 
which is in Graphics 0, if A=2 the background color can be changed 
and if A=I the foreground color (letters, numbers, and graphics char- 
acters) can be changed. For more details on how to use the color 
registers in all of the Graphics modes, consult your ATARI BASIC 
Reference Manual 

The B variable controls the color and ranges from to 15 while 
the C variable controls the luminance of the color and ranges from 
to 14 (the higher the brighter). It is the combination of different colors 
and luminances that generates the pallet of the Atari 800. 

Here is a short program that shows you how the color changes 
work in the Meditative Imagery program. Notice at line 40 that first 
the background color is changed by using SETCOLOR 2,C,D and then 
the foreground is changed by using SETCOLOR I,B,C. 

10 GRAPHICS OrSETCOLOR 2,0,0 
20 PRINT "HHHHHHHH" 
30 FOR X=1 TO 500:NEXT X 

50 



40 SETCOLOR 2, INT(RND(1)*16),2:SETCOLOR 

1,0,INT(RND(1)*9)+6 

50 PRINT "YYYYYYYY" 

60 FOR X=1 TO 500:NEXT X 

70 GOTO 10 
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Strategy Puzzies 




T 



'he games and puzzles in this chapter require some thought 
Their outcome is not decided by a spinner, a roll of dice, or any other 
chance device. If you work at them you should be able to figure out a 
way to solve their challenges (or, in one case, prove that a solution is 
impossible) and even beat the computer which has been programmed 
to play against you. If you read through the commentary on the games 
you'll also find out how to add a timer to your own games as well as 
some other information about game challenges and programming 
strategies. 
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Tfte Pattern Qamc 

This game requires cooperation in an indirect way. You are given a 4 
X 4 grid and asked to make a pattern on it. Using a joystick, you can 
create a star pattern on it. Using a joystick, you can create a star 
pattern by moving the cursor to any spot on the grid where you would 
Hke to place a star. If you press the button, a star will appear on your 
grid. Press SELECT when you are finished and your pattern will be 
covered over. Have a friend try to guess your pattern by moving the 
joystick and pressing the button to place a star where he or she thinks 
it might be. Here's where the cooperation comes in. If you don't create 
a regular pattern on the grid, your friend will certainly have a hard 
time reconstructing your grid. In fact, if you simply place stars at 
random on the grid, the game will be no fun at all. You have to create 
a pattern that is challenging and decipherable. By the way, if your 
friend is getting frustrated he or she can press the OPTION key to 
get a clue. One of the stars will be revealed. 
Here are a few challenging patterns: 
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THE PATTERN GAME 
MAKE VOUR HXDDEM PATTERN. 



■ 'J, ♦ ♦ *» ♦ 

.".",' ♦ ♦ ♦ ♦ 

I j 

♦ ♦ * » 



Pr-».. SELECT When »ou • ve finished. 



110 DIM C(3),P1(3,3),P2(3,3):C<1)=96-C 
(2)=42:C(3)=88:GRAPh1cS oIpokE 752 1 
120 ? CHR»( 125): POSITION 12,3:-? "THE P 
ATTERN GAME": POSITION 7,5 
130 ? "MAKE YOUR HIDDEN PATTERN "-Pn 

'fL^pA:;e?^'"°'^ V,8:K=1:G0sSb 70i 
140 POSITION 3,19:? "Pre.s SELECT wh«n 

you ve *inishBd.":X=0:Y=0:CL=0 
200 P=STRIG(0):IF P=0 THEN P1(X,Y)=P1( 
X,Y)+l:lF P1(X,Y)>3 THEN P1<X,yUi 

r2oi';r.^=° "^"^"^ POSITION 9+X»2,8+Y*2:? 

CHR»(C(P1(X,Y))):gOSUB 550 
220 GOSUB 600: POSITION 9+X*2.8+Y»2-? " 

•■:IF XOZX OR YOZY THEN FOR T=1o"to 
2,«^P -l: SOUND 0,T,10,8:NEXT T 
230 GOSUB 500: POSITION 9+X*2, 8+Y*2- •? C 
HR»(C(P1(X,Y))):G0SUB 500 
240 IF PEEK<53279)<>5 THEN 200 

IZ^^^tUU!^ *•==' "'^°" "SUESS THE HIDD 
EN PATTERN...": POKE 82, 9:P0SITI0N 9 8 
^i°o'*^^"^°^"^ 700: POKE 82, 24: POSITION 
24,8:K-2:G0SUB 700: POSITION 3,21:-? "Pr 
!«« OPTION to g.t a clue. ": X=0: Y=0 
400 P=STRIG(0):IF P=0 THEN P2(X,Y)=P2( 
X,Y)+l:lF P2(X,Y)>3 THEN P2(X,Y)=1 
410 IF P=0 THEN POSITION 24+X»2,8+Y»2- 
? CHR*(C(P2(X,Y))):G0SUB 550 
420 GOSUB 600: POSITION 24+X»2, 8+Y»2: "^ 

\LilJ^^^^ °^ ^^^Z'^ THEN FOR T-IO TO 

O STEP -l: SOUND 0,T,10,8:NEXT T 
430 GOSUB 500: POSITION 24+X»2.8+Y»2-'? 
CHR»(C(P2(X,Y))):G0SUB 500 ^'^*^*2-' 
440 IF PEEK (53279) =3 THEN 900 
450 IF PEEK (53279)05 THEN 400 



S6 



460 FOR J=0 TO 3: FOR T=0 TO 3: IF ABS(P 
1(T,J))<>P2(T,J) THEN ? CHR*(253) :BOTO 

400 
470 NEXT T:NEXT J:P0SITI0N 1,5:? "YOU 
DID IT WITH ";CL;" CLUES! PRESS START 
":F0R J=1 TO 3: FOR T=20 TO STEP -1 
480 SOUND 0,T,10, 10:NEXT T:NEXT J 
490 IF PEEK (53279)06 THEN 490 
495 BOTO 120 

500 FOR T=l TO 10: IF STICK (0)015 OR S 
TRIG(0)=0 THEN T=10 
510 NEXT T: RETURN 
550 IF STRIG(0)=0 THEN 550 
S60 RETURN 

600 Z=STICK(0):ZX=X:ZY=Y:IF Z>8 AND Z< 
12 THEN X=X-l:lF X<0 THEN X=0 
610 IF Z>4 AND Z<8 THEN X=X+1:IF X>3 T 
HEN X=3 

620 IF Z=10 OR Z=14 OR Z=6 THEN Y=Y-1: 
IF Y<0 THEN Y=0 

630 IF Z=9 OR Z=13 OR Z=5 THEN Y=Y+1:I 
F Y>3 THEN Y=3 
640 RETURN 

700 FOR J=0 TO 3: FOR T=0 TO 3: IF K=2 T 

HEN ? CHR*(C(P2(T,J>));" "; 

710 IF K=l THEN PI (T, J)=1:P2(T, J)=l: -^ 

CHR«(96);" "; 

720 IF K=3 THEN ? ". "; 

730 NEXT t:? :? :next j: return 

900 IF PKX.YXO THEN 400 

910 POSITION 9+X*2,8+Y»2:? CHR*(C(P1(X 

,Y))) .-POSITION 24+X»2,8+Y»2:? CHR*(C(P 

1 (X,Y) ) ):CL=CL+l:P2(X,Y)=Pl (X,Y) 

920 PI (X,Y)=-P1 (X,Y):GOTO 400 



21, 22 



5x5 and 4x4 'Sumber Puzziers 

The 3x3 and 4x4 Number Puzzlers are computer versions of puzzles 
that are over 100 years old. The earliest versions of the puzzles con- 
sisted of wooden trays with numbered wood blocks laid into them as 
in this old drawing: 
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The 4x4 puzzle consists of a 4x4 square grid with the numbers 1 
through 15 printed on the blocks. There is one blank square on the 
grid. The blocks can be moved onto the empty square and little by 
little, shuffled around the entire grid. The puzzle consists of shifting 
the numbers around the grid and then reassembling them in consecu- 
tive order. Here is one possible challenge on the 4x4 board: 

Put this square in order so that 1 is at the top left and all the other 
numbers proceed in order from left to right and then top to bottom as 
in the first drawing: 
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The computer versions of the program first use a 3x3 board and 
the numbers 1 to 8, and then a 4x4 board and numbers 1 to 15. The 
computer shuffles the numbers for you and gives you a board to solve. 
The empty square is marked by double stars (•*). Using a joystick, you 
can move the empty square vertically or horizontally onto any adjoin- 
ing square. The number in that square will then move to the pre- 
viously empty square. Thus, in the computer version you are moving 
the empty square and the numbers are switched for you. The net 
result, however, is identical to moving the blocks into the empty 
square. There is a counter built into the program that will let you 
know how many numbers you have in the right place. 



mi B EH cia 

ED {ZD Em CO 

EU EI] EH EI] 

[O EH EI] EH 



EH EH E: 
EH EH EH 
EH EH IHl 
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100 REM *#* J By J PUZZLER *** 

110 DIM P<2,2),A*(9),B»(26):F0R T=1 TO 

26: READ K:B»(T,T)=CHR»(K):NEXT T 
120 DATA 17,18,18,5,29,30,30,30,30,124 
, 32, 32, 124, 29, 30, 30, 30, 30, 26, 18,18,3,2 
8,30,30,30 

130 BRAPHICS 0:SETCOLOR 2, 0,0: POKE 752 
,1:PRINT CHR»(125) 

140 T=PEEK ( 560) +256»PEEK( 561): POKE T+7 
,6: POKE T+8,6:P0KE T+29,65:P0KE T+30.P 
EEK( 560): POKE T+3 1, PEEK (561 ) 
150 POSITION 3,2:PRINT "numb«r puzzler 

160 A»=" 000000000" 

170 FOR Y=0 TO 2: FOR X=0 TO 2 

180 T=INT(RND(1)*9):IF A*(T+1, T+1 )="1" 

THEN 180 
190 POSITION 13+X*5,5+Y*4: PRINT B«; : IF 

too then print t:goto 210 
200 print "»»":px=x:py=y 
210 a*(t+i,t+i)="i":p(x,y)=t:next x:ne 

XT Y:B0T0 310 

220 T=STICK(0):1F T=15 OR T=5 OR T=6 O 

R T=9 OR T=10 THEN 220 

230 OX=PX:OY=PY 

240 IF T=14 THEN PY=PY-1:IF PY<0 THEN 

PY=0:G0T0 220 

250 IF T=13 THEN PY=PY+1: IF PY>2 THEN 

PY=2:G0T0 220 

260 IF T=ll THEN PX=PX-1:IF PX<0 THEN 

PX»0:G0T0 220 

270 IF T-7 THEN PX=PX+1:IF PX>2 THEN P 

X=2:G0T0 220 

280 POSITION 13+PX»5,5+PY»4: PRINT B*! " 
»*" 

290 POSITION 13+0X*5,5+0Y»4: PRINT B*;P 
(PX,PY> 

300 P(0X,0Y)=P(PX,PY):P(PX,PY)=0 

310 FOR K=0 TO 1:F0R T=10 TO STEP -2 

: SOUND o,t,io,io:next t:next k 

320 C=1:F0R Y-0 to 2: FOR X=0 TO 2 

330 IF P(X,Y)=0 then 360 

340 IF P(X,Y)<>C THEN 370 

350 C=C+1 

360 NEXT X:NEXT Y 

370 POSITION 16,19:PRINT "SCORE: ";C-1 

:G0T0 220 
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100 REM #** 4 By 4 PUZZLER »** 

no DIM P (3, 3), A* ( 16), B* (26): FOR T=l T 

26: READ K:B»<T,T)=CHR*(K):NEXT T 

120 DATA 17,18,18,5,29,30,30,30,30,124 

, 32, 32, 124, 29, 30, 30, 30, 30, 26, 18,18,3,2 

8,30,30,30 

130 GRAPHICS 0:SETCDLOR 2, 0,0: POKE 752 

, l: PRINT CHR»(125) 

1 40 T=PEEK ( 560 ) +256»PEEK ( 56 1 ) : POKE T+7 

,6: POKE T+B,6:P0KE T+29,65:P0KE T+30,P 

EEK( 560): POKE T-t-3 1 , PEEK ( 56 1 ) 

150 POSITION 3, 2: PRINT "number puzzler 

II 

160 A»="0000000000000000" 

170 FOR Y=0 TO 3: FOR X=0 TO 3 

ISO T=INT(RND(1)*16>:IF A*(T+1 ,T+1 )="! 

" THEN 180 

190 POSITION 10+X*5,4+Y*4: PRINT B«; : IF 

TOO THEN PRINT T:GOTO 210 
200 PRINT "♦»":px=x:py=y 
210 a*(T+i,t+1)="1":p<x,Y)=t:next x:ne 
XT Y:G0TD 310 

220 T=STICK(0):IF T=15 OR T=5 OR T=6 O 
R T=9 OR T=10 THEN 220 
230 OX=PX:OY=PY 

240 IF T=14 THEN PY=PY-1:IF PY<0 THEN 
PY=0:G0T0 220 

250 IF T=13 THEN PY=PY+1:IF PY>3 THEN 
PY=3:G0T0 220 

260 IF T=ll THEN PX=PX-1:IF PX<0 THEN 
PX=0:G0T0 220 

270 IF T=7 THEN PX=PX+1:IF PX>3 THEN P 
X =3: GOTO 220 

280 POS I T I ON 1 0+PX »5 , 4+PY»4 : PR I NT B* ; " 
*»" 

290 POSITION 10+0X*5,4+0Y»4: PRINT B*;P 

(PX,PY) 

300 P(0X,0Y)=P(PX,PY):P(PX,PY)=0 

310 FOR K=0 TO 1 : FOR T=10 TO STEP -2 

: SOUND 0,T,10,10:NEXT T:NEXT K 

320 c=i:for y=o to 3: for X=0 TO 3 

330 IF P(X,Y)=0 THEN 360 

340 IF P(X,Y)<>C THEN 370 

350 C=C+1 

360 NEXT X:NEXT Y 

370 POSITION 16, 21: PRINT "SCORE: ";C-1 

J " " : GOTO 220 
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There is a slight problem with this puzzle. Not all mixes of 
numbers can be unscrambled. There are some positions that are 
impossible to move into consecutive order. Sam Lloyd, one of the 
great puzzle inventors of all time, discovered several such positions in 
the ISZCs and in one of his books describes how he turned this 
impossibihty into a new challenge: 



Older inhabitants of Puzzleland will remember how in the seventies I 
drove the entire world crazy over a little box of movable blocks which 
became known as the "14-15 Puzzle." The fifteen blocks were arranged 
m the square box in regular order, but with the 14 and 15 reversed as 
shown in the above illustration. The puzzle consisted of moving the 
blocks about, one at a time, to bring them back to the present position 
m every respect except that the error in the 14 and 15 was corrected. 
A prize of $1,000, offered for the first correct solution to the 
problem, has never been claimed, although there are thousands of 
persons who say they performed the required feat. 
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People became infatuated with the puzzle and ludicrous tales 
are told of shopkeepers who neglected to open their stores; of a distin- 
guished clergyman who stood under a street lamp all through a win- 
try night trying to recall the way he had performed the feat. The 
mysterious feature of the puzzle is that none seem to be able to 
remember the sequence of moves whereby they feel sure they suc- 
ceeded in solving the puzzle. Pilots are said to have wrecked their 
ships, and engineers rush their trains past stations. A famous Balti- 
more editor tells how he went for his noon lunch and was discovered 
by his frantic staff long past midnight pushing little pieces of pie 
around on a plate! Farmers are known to have deserted their plows, 
and I have taken one such instance as an illustration for the sketch! 

Several new problems which developed from the original puzzle 
are worth giving: 

Second Problem— Start again with the blocks as shown in the 
large illustration and move them so as to get the numbers in regular 
order, but with the vacant square at upper left-hand comer instead of 
lower right-hand comer (see Fig. 1). 

Third Problem— Start with the blocks as before, turn the box a 
quarter-way round and move the blocks until they rest as in Fig. 2. 

Fourth Problem— Start as before, then shift the pieces until they 
form a "magic square," the numbers adding to thirty along all vertical 
and horizontal rows, and the two diagonals. 

12 3 4 8 12 

4 5 6 7 3 7 11 15 

8 9 10 11 2 6 10 14 

12 13 14 15 15 9 13 

Fig- 1 Fig. 2 

Following are the answers to Lloyd's other challenges, taken from 
Dover Books' Mathematical Puzzles of Sam Lloyd, edited by Martin 
Gardner whose commentary provides the answers to Lloyd's chal- 
lenges. 

[The original puzzle is impossible to solve except by such skul- 
lduggery as turning the 6 and 9 blocks upside down. One of the 
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puzzle's peculiarities is that any such interchange, involving two 
blocks, immediately converts the puzzle to a solvable one. In fact, any 
odd number of interchanges has the same effect, whereas an even 
number leaves the puzzle unsolvable as before. Readers interested in 
learning something about the interesting mathematical structure 
underlying this puzzle are referred to the classic analysis by W. W. 
Johnson and W. E. Story in their article, "Notes on the 15-Puzzle," 
American Journal of Mathematics, Vol. 2, 1879, p. 397f, and to briefer 
discussions of the puzzle in standard references on recreational 
mathematics.— M.G.] 

The other three problems are solved as follows: 
Fig. 1 can be reached in 44 moves: 14, 1 1, 12, 8,7,6, 10, 12, 8 7 4 
3, 6, 4, 7, 14, 1 1, 15, 13, 9, 12, 8, 4, 10, 8, 4, 14, 1 1, 15, 13, 9, 12, 4, 8, 5,' 4, 
8, 9, 13, 14, 10, 6, 2, 1. 

Fig. 2 can be reached in 39 moves: 14, 15, 10, 6, 7, 1 1, 15, 10, 13, 9, 
5, 1, 2, 3, 4, 8, 12, 15, 10, 13, 9, 5, 1 2, 3, 4, 8, 12, 15, 14, 13, 9, 5, 1, 2, 3, 4, 
8, 12. 

The magic square can be produced in 50 moves: 12, 8, 4 3 2 6 
10, 9, 13, 15, 14, 12, 8, 4, 7, 10, 9 14, 12, 8, 4, 7, 10, 9, 6, 2, 3, 10, 9, 6, 5, l' 
2, 3, 6, 5, 3, 2, 1, 13, 14, 3, 2, 1, 13, 14, 3, 12, 15, 3. 

Try to figure out what characterizes an impossible challenge 
and certainly don't quit on the puzzles too soon. Something that may 
initially look impossible may merely be difficult. 
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Ikno 

Dozo is a game that Japanese GO masters use to warm up. It is decep- 
tively simple and involves a different sort of strategy than usually 
adopted in the more aggressive games of chess and checkers. Dozo 
requires that you play to not lose rather than play to win. This will 
become clear from a description of the board, pieces, and goals of the 
game. 

64 



Dozo is played on a board that is an equilateral triangle. In our 
version of the game, each side is seven units long. Here is a picture of 
the board: 



* * 

* * * 

* * * * 

***** 

****** 

****** 



There are four different pieces that you can use in the game. As 
opposed to most Western games, the pieces do not belong to any one 
of the players. On each move of the game, you can choose any one of 
the pieces and place it on any empty point on the board. The goal of 
the game is to be the first player to make an equilateral triangle of any 
size with the three vertices of the triangle having the same piece. 
Suppose the pieces were called 1, 2, 3, and 4. Here is a sample game 
winning position: 

* 

1 2 

2 3 4 

* * -j * 

2 * 2 * * 

****** 

****** o 

Notice that the 2's in lines 3 and 5 make up an equilateral triangle. 
The player who placed the last 2 on the board is the winner. The 
player who placed the second 2 on the board trapped him- or herself 
into a losing position. The complexity of this game emerges from the 
fact that you always have to think about not making a move that will 
give your opponent an equilateral triangle. This involves analyzing 
positions that won't lead to a loss as well as looking out for winning 
positions. Simple and direct aggression will almost always lead to a 
loss in this game. 
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The Dozo program is the longest in this book and the most 
tedious to copy because it turns the computer into your opponent. 
Strategy for playing a good game of Dozo is built into the program and 
the computer is pretty hard to beat. However, the computer is not 
guaranteed a win and no one has yet analyzed Dozo fully enough to 
know what the best possible move is in any situation. Try your hand 
at crossing up the computer. It will take time and concentration. You 
will need a joystick to play this game. 
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2000 
2100 
2110 
2200 
2210 



2220 
,B)) 
2230 
THEN 
2240 
THEN 
2250 
2300 
PEE! 



100 REM #** DOZO **# 

1000 GOSUB 8000: IF CO 17076 THEN 9500 
GOSUB 6000: GOSUB 6200 
GOSUB 6300: IF FP THEN 3000 
POSITION 1,0:? #6! "my turn" 
IF CC(P)<=1 OR CC(P)=7 THEN 2400 
FOR T=0 TO CC-l:Ml=M(P,CC):M2=M(F 

,T):fi=mi:f2=M2:if mi>M2 then F1=M2:F2 

=M1 

B=B(F1)+(F2-(F1+1) )»2:P1=ASC(A»(B 
:P2=ASC(A«(B+1,B+1) ) 
IF Pl<=27 THEN IF S (Pl) =fiSC ( "/") 
Wl=Pl:GOTO 2300 

IF P2<=27 THEN IF S (P2) =ASC ( "/") 
W1=P2:G0T0 2300 
NEXT T:G0T0 2400 

GOSUB 6300: POSITION 1,0:? #6; "YIP 
I WIN! ! !":X=X(SX(W1),SY(W1)):Y=Y( 
SX(W1),SY(W1)) 

2310 for t=l to 2: position x,y:? #6;t* 

:for j=o to 120:next j:position x,y:? 

»6;j»:F0R J=o TO bo: next J : next t 

2320 position X,Y:? «65T*:X1=X<SX(F1), 

SY(F1)):Y1=Y(SX(F1),SY(F1)):X2=X(SX(F2 

) , SY (F2) ) : Y2=Y (SX (F2> , SY (F2) ) 

2330 FOR T=l TO 5: POSITION X,Y:? #6; J* 

: POSITION XI, Yl:? #6; J»: POSITION X2,Y2 

:? #6;J«:F0R J=0 TO 80: NEXT J 

2340 POSITION X,Y:? #6; T«: POSITION XI, 

Yl:? #6; T*: POSITION X2,Y2:? #6;t»:for 

J=0 TO 120:NEXT J:NEXT t 

2350 FOR T=l TO 4000: NEXT T:GOTO 2000 

P=0:IF CC(1)<CC(P) THEN P=l 

IF CC(2)<CC(P) THEN P=2 

IF CC<3)<CC(P) THEN P=3 

EP=P:PC=-1 

TT=0:TC=-1 

POP :IF TT<10 THEN 2520 

TC=TC+l:T=TC:IF T>27 THEN 6400 

IF S(T><>ASC("/") THEN 2505 

GOTO 2535 

T=INT(RND(1)»28): IF S(T)<>ASC("/" 
) THEN 2520 

2525 IF CC(P)=0 THEN 2600 
2530 TT=TT+1 

2535 FOR J=0 TO CC(P) -1:M1=M(P, J) :M2=T 
:F1=M1:F2=M2:IF M1>M2 THEN F1=M2:F2-M1 
2540 B=B (Fl ) + (F2- (Fl + 1 ) ) «2: P1=ASC <A» (B 
,B)):P2=ASC(A«(B-<-l,B-i-l) ) 
2545 IF Pl<=27 THEN IF S (P1)=ASC( "/") 
THEN 2500 

2550 IF P2<=27 THEN IF S(P2) =ASC ( "/") 
THEN 2500 



2400 
2410 
2420 
2430 
2440 
2500 
2505 
2510 
2515 
2520 
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2555 NEXT J 

2600 T*=P»(P+1,P+1) 

261Q X=X(SX(T),SY(T)):Y=Y(SX(T),SY(T)) 

2620 FOR K=l TO 5:P0SITI0N X,Y:? #6;T* 

:FOR J=0 TO 50:NEXT JrPOSITION X,Y:? « 

6; J*: FOR J=0 TO 50: NEXT J 

2630 NEXT K: POSITION X,Y:? #6;T* 

2640 S (T) =ASC (T*) : PX (T) =X (SX (T) , SY (T) ) 

: PY (T) =Y (SX (T) , SY (T) ) : M (P, CC (P) ) =T: CC ( 

P)=CC(P)+1 

2700 FP=l:GOTO 2100 

3000 POSITION 1,0:? #6; "YOUR TURN" 

3100 IF STRIG(0)=0 AND CC(P><7 THEN X= 

0:Y=0:G0SUB 6100:G0T0 3500 

3110 Z=STICK<0):IF Z=14 THEN P=P-1-IF 

P<0 THEN P=3 

3120 IF 2=13 THEN P=P+1:IF P>3 THEN P= 
O 

3130 POSITION l,P+3:? #6;" " 

3140 T*=P*(P+l,p+l) 

3150 FOR T=0 TO 27: IF STRIG(0>=0 THEN 

POSITION l,P+3:? #6; T*: GOTO 3100 

3160 NEXT T: POSITION l,P+3:? #65T»:FDR 

T=0 TO 27: IF STRIG(0>=0 THEN 3100 
3170 NEXT T:GOTO 3100 

3500 IF STRIG(0)=0 THEN QOSUB 6 100: GOT 
3800 

3510 Z=STICK(0):OLDX=X:OLDY=Y 

3520 IF Z=14 THEN X=X-l:Y=Y-2 

3530 IF 2=13 THEN X=X+l:Y=Y+2 

3540 IF 2=7 THEN X=X+1 

3550 IF 2=11 THEN X=X-1 

3560 IF 2=6 THEN Y=Y-1 

3570 IF 2=9 THEN Y=Y+1 

3580 IF 2=5 THEN X=X+1:Y=Y+1 

3590 IF 2=10 THEN X=X-1:Y=Y-1 

3600 IF X<0 OR Y>6 OR X>Y THEN X=OLDX: 

Y=OLDY 

3610 SS=P (X, Y) : J*=CHR* (S (SS) ) : XS=X (X, Y 

):ys=y(x,Y) 

3620 POSITION XS.YS:? #6;" •':FOR T=0 T 

O 10: NEXT T 

3630 POSITION XS.YS:? #6;T» 

3640 FOR T=0 TO 27: IF STRIG(0)=0 THEN 

POSITION XS.YS:? #6; J*: GOTO 3500 

3650 NEXT T: POSITION XS.YS:? #65 J*: FOR 

T=0 TO 27: IF STRIG(0>=0 THEN 3500 
3660 NEXT T:GDTO 3500 
3800 IF S(SS)<>ASC (••/•■) THEN 3510 
3810 S(SS)=ASC(T»): POSITION XS.YS: "^ »6 

; T*: PX (SS) =xs: PY (ss) =ys 
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3820 M (P, CC <P) ) =SS: CC=CC (P) : CC (P) =CC (P 
)+l:IF CC(P)<3 THEN FP=0:GOTO 2100 
3830 FOR T=0 TO CC-2:M1=M(P,CC) :M2=M (P 
,T):F1=M1:F2=M2:IF M1>M2 then F1=M2:F2 

=111 

3840 B=B (Fl ) + (F2- (Fl+1 ) ) *2: P1=ASC (A* (B 

, B) ) : P2=ASC (A* (B+1 , B+1 ) ) 

3850 FOR J=T+1 TO CC-1:IF P1=M(P,J) OR 

P2=M(P,J) THEN 4000 
3860 NEXT J: NEXT T:FP=0:GOTO 2100 
4000 GOSUB 6300 
4010 POSITION 1,0:? #6; "you won the ga 

4020 FOR T=0 TO 4000: NEXT T:GOTO 2000 
6000 ? »6;CHR»(125):F0R X=0 TO 6: FOR Y 
=0 TO 6: IF Y<X THEN NEXT Y 
6010 POSITION X<X,Y),Y(X,Y):? #6;"/":N 

EXT y:next x:for t=3 to &:positiqn i,t 

:? #6;P*(T-2,T-2):NEXT T 

6020 FOR T=0 TO 27: S(T)=ASC ("/"): NEXT 

T:F0R T=0 to 3:CC<T)=0:NEXT T: RETURN 

6100 IF STRIG(0)=0 THEN 6100 

6110 RETURN 

6200 POSITION 1,0:? #6; "WILL YOU GO FI 

RST?" 

6210 GET #1,K:FP=V0:IF K=89 THEN FP=1: 

RETURN 

6220 IF K=78 THEN RETURN 

6230 GOTO 6210 

6300 POSITION 0,0:? #6;" 

" : RETURN 
6400 PC=PC+l:P=PC: IF P<4 THEN 2440 
6410 T=INT(RND(1)*28): IF S<T)<>ASC("/" 
) THEN 6410 
6420 P=EP:60TO 2600 

8000 POKE 106, 120: GRAPHICS 17: FOR T=0 
TO 31: READ K:POKE 1536+T,K:NEXT T: T=US 
R (1536, 57344, 3 1744): POKE 756,124 
SOlO DATA 104,104,133,204,104,133,203, 
104,133,206,104,133,205,162,4,160,0,17 
7, 203, 145, 205, 200, 208, 249, 230, 204 
8020 DATA 230,206,202,208,240,96 
8030 DIM A»<756),T»<1),J«(1),P«<4),S(2 
7),PX(27),PY(27),B<26),CC(3),P(6,6>,X( 
6,6),Y(6,6),M(3,6),SX(27),SY(27) 
8040 FOR X=0 TO 6:F0R Y=0 TO 6: IF Y<X 
THEN NEXT Y 

8050 X(X,Y)=10-Y+2»X:Y<X,Y)=Y+2:NEXT Y 
:next x:t=o:for y=o to 6: for x=o to 6: 
IF X>Y then next Y 
8060 P(X,Y)=T:SX(T)=X:SY(T)=Y:T=T+l:NE 

XT x:next y 
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8100 FOR T=0 TO 26: READ K: B(T) =K:NEXT 

T 

8110 DATA 1,55,107,157,205,251,295,337 

, 377, 415, 451 , 485, 517, 547, 575, 601 , 625, 6 

47, 667, 685, 701 , 715, 727, 737, 745, 751 , 755 

8120 OPEN #1,4,0, ■■K:":T=PEEK (560) +256* 

PEEK(561):FDR J=T+7 TO T+19 STEP 2:P0K 

E J, 7: POKE J+1, 112: NEXT J 

8130 POKE T+22,65:P0KE T+23, PEEK (560) : 

POKE T+24, PEEK (561): POSITION 5,5:? #6; 

"PLEASE WAIT" 

8140 FOR T*l TO 4: READ K: P« (T, T) =CHR» C 

K):NEXT T:J«="/":DATA 171,44, 13, 142 

8500 FOR T=0 TO 39: READ K:POKE 31744+8 

8+T,K:NEXT T 

8510 DATA 0,0,60,126,24,126,60,0 

8520 DATA 0,0,126,195,189,195,126,0 

8530 DATA 0,0,102,126,24,126,102,0 

8540 DATA 0,0,24,126,231,126,24,0 

8550 DATA 0,0,24,60,126,60,24,0 

8600 C=0:FOR T=l TO 756: READ K:C=C+K:A 

*(T,T)=CHR*(K>:NEXT T: RETURN 

9000 DATA 2,32,1,32,5,32,32,32,3,32,9, 

32, 32, 32, 32, 32, 6, 32, 14, 32 

9010 DATA 32,32,32,32,32,32,10,32,20,3 

2, 32, 32, 32, 32, 32, 32, 32, 32, 15, 32 

9020 DATA 27,32,32,32,32,32,32,32,32,3 

2, 32, 32, 21 , 32, 0, 4, 4, 32, 2, 3 

9030 DATA 7,32,8,32,5,32,6,32,11,32,13 

, 32, 9, 32, 32, 32, 10, 32, 16, 32 

9040 DATA 19,32,14,32,32,32,32,32,15,3 

2, 22, 32, 26, 32, 20, 32, 32, 32, 32, 32 

9050 DATA 32,32,21,32,32,32,8,32,1,5,4 

, 32, 13, 32, 9, 32, 3, 32, 7, 32 

9060 DATA 19,32,14,32,32,32,6,32,11,32 

, 26, 32, 20, 32, 32, 32, 32, 32, 10, 32 

9070 DATA 16,32,32,32,27,32,32,32,32,3 

2,32,32,15,32,22,32,1,7,0,12 

9080 DATA 7,32,4,6,2,11,17,32,12,32,8, 

32, 5, 10, 16, 32, 23, 32, 18, 32 

9090 DATA 13,32,9,32,15,32,22,32,32,32 

, 25, 32, 19, 32, 14, 32, 32, 32, 21 , 32 

9100 DATA 32,32,32,32,2,8,12,32,3,8,5, 

7,12,32,18,32,13,32,6,9 

9110 DATA 11,32,17,32,25,32,19,32,14,3 

2, 10, 32, 16, 32, 23, 32, 32, 32, 26, 32 

9120 DATA 20,32,32,32,15,32,22,32,32,3 

2, 18, 32, 1 , 13, 4, 9, 8, 32, 25, 32 

9130 DATA 19,32,3,14,7,32,12,32,32,32, 

26, 32, 20, 32, 6, 32, 1 1 , 32, 17, 32 

9140 DATA 32,32,32,32,27,32,32,32,10,3 

2, 16, 32, 23, 32, 3, 1 1 , 1 , 17, 0, 24 
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9150 DATA 11,32,7,10,4,16,2,23,32,32,1 

7,32,12,32,8,15,5,22,32,32 

9160 DATA 32,32,24,32,18,32,13,32,9,21 

, 32, 32, 32, 32, 32, 32, 4, 12, 2, IB 

9170 DATA 17,32,6,12,8,11,5,17,24,32,2 

4, 32, 18, 32, 10, 13, 9, 16,23, 32 

9180 DATA 32,32,32,32,25,32,19,32,14,1 

5,22,32,32,32,32,32,5,13,24,32 

9190 DATA 3,18,7,13,9,12,18,32,32,32,2 

5,32,6, 19, 11, 14, 17,32,24,32 

9200 DATA 32,32,32,32,26,32,10,20,16,3 

2, 23, 32, 32, 32, 32, 32, 1 , 25, 4, 19 

9210 DATA 8,14,13,32,32,32,32,32,3,26, 

7, 20, 12, 32, IB, 32, 32, 32, 32, 32 

9220 DATA 32,32,6,27,11,32,17,32,24,32 

,6,16, 3, 23, 1 , 32, O, 32, 16, 32 

9230 DATA 11,15,7,22,4,32,2,32,32,32,2 

,^, 32, 15, 16, 12, 21 , B, 32, 5, 32 
^ai?240 DATA 32,32,32,32,7,17,4,24,2,32,2 
3,32, 10, 17, 12, 16,8,23,5,32 
9250 DATA 32,32,32,32,24,32,15,18,13,2 
2, 9, 32, 32, 32, 32, 32, 8, 18, 5, 25 
9260 DATA 32,32,6,24,11,18,13,17,9,24, 
32,32,32,32,32,32, 10,25, 16, 19 
9270 DATA 14,23,32,32,32,32,9,19,32,32 
, 3, 32, 7, 25, 12,19, 14, 18, 25, 32 
9280 DATA 32,32,32,32,6,32,11,26,17,20 
, 24, 32, 32, 32, 32, 32, 1 , 32, 4, 32 

-^9290 DATA 8,26,13,20,19,32,32,32,32,32 
, 3, 32, 7, 32, 12, 27, IB, 32, 25, 32 
9300 DATA 10,22,6,32,3,32,1,32,0,32,22 
,32,16,21,11,32,7,32,4,32 
9310 DATA 2,32,32,32,11,23,7,32,4,32,2 
, 32, 32, 32, 15, 23, 17, 22, 12, 32 
9320 DATA 8,32,5,32,32,32,12,24,8,32,5 
,32,32,32, 10,32, 16,24, 18,23 
9330 DATA 13,32,9,32,32,32,13,25,9,32, 
32,32,6,32,11,32,17,25,19,24 
9340 DATA 14,32,32,32,14,26,32,32,3,32 
, 7, 32, 12, 32, 18, 26, 20, 25, 32, 32 
9350 DATA 32,32,1,32,4,32,8,32,13,32,1 
9, 27, 26, 32, 15, 32, 10, 32, 6, 32 
9360 DATA 3,32,1,32,0,32,16,32,11,32,7 
, 32, 4, 32, 2, 32, 17, 32, 12, 32 
9370 DATA 8,32,5,32,18,32,13,32,9,32,1 
9,32,14,32,20,32 

9500 GRAPHICS O: PRINT "INCORRECT DATA 
IN LINES 9000-9370" TEND 
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Music omCNoi^e 
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-tari BASIC has a powerful sound function built into it. The 
function, which takes four variables, is: 

SOUND A, B, C, D 

The first variable. A, controls the number of voices or sounds the 
computer can use. It ranges from to 3, thus controlling four voices- 
0, I, 2 and 3. 

The second variable, B, controls the pitch or note that the com- 
puter plays. It ranges from to 255, giving you 256 sounds to control 
These sounds are sometimes closer together than the sounds youll 
fmd on the piano keyboard. Here is a chart giving you piano/compu- 
ter equivalents for several octaves: 



N 


Note 


N 


Note 
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145 


A 



Notice that the lower the number the higher the note!!!! 

The third variable, C, is a special effects variable. Sometimes it 
causes the equivalent of explosions or spooky sounds. When it is set 
at 10 you are in the normal music mode, which ranges from to 15. 
Experiment with settings other than 10. Some will produce no sound 
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at all; other will create effects you might want to include in programs 
you create. 

The fourth variable, D, controls the volume. It ranges from to 
15 with 8 being the normal mid- volume, being the lowest setting, 
and 15 the loudest. 

There is one other command that is used with SOUND A,B,C,D 
to give you control over the length of time each note is sounded. That 
is a pause command that is represented in BASIC by an empty FOR . . . 
NEXT . . . loop. For example: 

FOR X=1 TO 100:NEXT X 

The actual length of the pause created by the loop varies according to 
where it appears in your program, although, the larger the number 
that comes after TO the longer the pause. You'll get a feel for timing 
by playing around with pause loops. 

Here are a few simple programs that will help you get a sense of 
how the SOUND command and the pause loop work together: 

This program plays middle, high, and low C at the same time: 

REM C IN 3 OCTAVES 

10 SOUND 0,31,10,8 

20 SOUND 1,61,10,8 

30 SOUND 2,122,10,8 

40 FOR X=1 TO 1500:NEXT X 

This program also plays the three C's but starts with one, adds a 
second and then a third after slight pauses. Notice where the pauses 
are placed and how long they are when you run the program. 

REM C'S IN THREE TIME ZONES 

10 SOUND 0,31,10,8 

15 FOR X=1 TO 500:NEXT X 

20 SOUND 1,61,10,8 

25 FOR X=1 TO 1000:NEXT X 

30 SOUND 2,122,10,8 

35 FOR X=1 TO 1500:NEXT X 

This program only uses one voice and thus plays the three C's 
one after the other without creating a chord. 
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REM C'S IN THREE STAFFS 

10 SOUND 0,31,10,8 

15 FOR X=1 TO 500:NEXT X 

20 SOUND 0,61,10,8 

25 FOR X=1 TO 500:NEXT X 

30 SOUND 0,122,10,8 

35 FOR X=1 TO 500:NEXT X 

Here the third or special effects variable is changed so that you 
can hear some of the sounds and noises you can make with your Atari 
800. 

REM SOUND AND EFFECTS 

10 SOUND 0,31,10,8 

15 FOR X=1 TO 500:NEXT X 

20 SOUND 0,61,8,8 

25 FOR X=1 TO 500:NEXT X 

30 SOUND 0,122,6,8 

35 FOR X=1 TO 500:NEXT X 

REM SOUND, EFFECTS AND VOLUME 

10 SOUND 0,31,10,1 

15 FOR X=1 TO 500:NEXT X 

20 SOUND 0,61,8,6 

25 FOR X=1 TO 500:NEXT X 

30 SOUND 0,122,6,12 

35 FOR X=1 TO 500:NEXT X 

This program takes you through all of the sounds you can con- 
trol over two octaves. You'll notice that these sounds do not make up 
a scale as the computer can generate sounds that lie in between notes 
on a 12-tone scale. 

REM COMPUTER RANGE 2 OCTAVES 

10 FOR X=36 TO 145 

20 SOUND 0,X,10,8 

30 FOR Y=1 TO 50:NEXT Y 

40 NEXT X 

This final program shows you how to put sound into a READ 
DATA command. This is a memory-efficient way of storing tunes. 
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Notice that all the notes are put on line 50. You don't have to write a 
separate SOUND command for each note. Also notice that the -1 is 
used to let the computer know (at line 15) when the data has all been 
used. 

REM SOUND WITH FLAG:READ..DATA 

10 READ Z 

15 IF Z=-1 THEN GOTO 45 

20 SOUND 0,Z,10,8 

30 FOR X=1 TO 50:NEXT X 

40 GOTO 10 

45 PRINT "THAT'S ALL FOLKS" 

50 DATA 10,200,25,56,78,98,45,92,-1 

Now here are several more complex programs that you might 
find fun and useful. 
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Hi^fi Note Low Note 

In this game you use a joystick to rearrange a series of notes from 
high to low. Eight notes are scrambled and hidden under squares on 
the screen. 



HXGH NOTE 



LOM NOTE 



By pushing the joystick forward or backward, you move up and 
down the musical scale. Press the button to pick up a note in position 
and carry it to another position. Press the button again to drop the 
note. Put the lowest note at the bottom of the screen and the highest 
at the top. The computer will let you know when you have succeeded 
in ordering the notes. 



100 REM *** HI6H NOTE LOH NOTB »** 
110 DIM M»(8),A(7),P(7),B»(7),C»(7),D* 
<7) .-GRAPHICS OIPOKE 752,1:? 
120 FDR T=l TO 7: READ K: B» (T, T) =CHR* (K 
):NEXT T:DATA 160,160,30,30,29,160,160 
130 FOR T=l TO 7: READ K: C* (T, T) =CHR» (K 

):next t:data 6,7,30,30,29,7,6 

140 FOR T=l TO 7: READ K: D» (T, T) =CHR$ (K 

):NEXT T:DATA 8, 10,30,30,29, 138, 136 
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200 PRINT CHRt ( 1 25 ):M»= "♦«»«»♦♦» "IFOR 
T=0 TO 7 

210 R=INT(RND(1)*8):IF M* (R+1,R+1 ) <>••» 
" THEN 210 

220 m»(r+i,r+i)=str«(T):p(R)=t:next t 
230 r= i nt ( rnd ( 1 ) #4 ) : restore 900+r : for 
t=0 to 7: read k: a (t) =k: next t 

240 POSITION 7,2:? "HIGH NOTE": FOR T=0 
TO 7: POSITION 19,1+T»3:? B*; :S=A (P (T) 
):G0SUB 500: next T: position 23,22 
250 ? "LOW N0TE":Y=0:W=0:G0SUB 600 
300 IF STRIG(0)=0 THEN 400 
305 IF W=l AND PEEK (53279) =6 THEN 200 
310 IF STICK (0) =15 THEN 300 
320 KY=Y:Z=STICK<0):IF Z=14 THEN Y=Y-1 
: IF Y<0 THEN Y=0 

330 IF Z=13 THEN Y=Y+1:IF Y>7 THEN Y=7 
340 IF Y=KY THEN 300 

350 POSITION 19, 1+KY*3:7 B«;:GOSUB 600 
:G0T0 300 

400 NN=1-NN:KY=Y:60SUB 600 
410 IF STRIG(0)=0 THEN 410 
420 GOTO 300 
500 FOR L=15 TO O STEP -1: SOUND 0,S,10 

,L:next l: sound o,o,o,o: return 

600 POSITION 19,1+Y*3:IF NN THEN ■:> c»; 

:t=P(Y):p(Y)=P(ky):P(ky)=t:m*(y+i,y+1) 

=STR»(P<Y)):M»(KY+1,KY+1)=STR»(P(KY)) 

610 IF NN=0 THEN ? D«; 

620 S-A(P(Y)):G0SUB 500: IF M*="0123456 

7" AND NN=0 THEN 700 

630 IF W=l THEN 710 

640 RETURN 

700 POSITION 4,10:? "YOU DID IT"":PDSI 

TION 25,10:? "PRESS START" : W=l : RETURN 

710 POSITION 4,10:? " "-POSI 

TION 25,10:? " ":W=0: RETURN 

900 DATA 60,64,72,81,91,96,108,121 

901 DATA 72,81,91,96,108,121,128,144 

902 DATA 81,85,96,108,121,128,144,162 

903 DATA 96,108,121,128,144,162,173,19 



Here are the DATA statements used in the program. Notice 
that each line has eight numbers representing the eight notes used in 
the game and also that these numbers are ordered from low to high. 
You can change these statements and put your own scales or inter- 
vals in their place. Be sure, however, to keep eight notes on a line and 
order them from lowest to highest. 
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900 DATA 60,64,72,81,91,96,108,121 

901 DATA 72,81,91,96,108,121,128,144 

902 DATA 81,85,96,108,121,128,144,162 

903 DATA 96,108,121,128,144,162,173,19 
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Ifie Guitar onmer 

You can use this program to tune your guitar. The screen presents 
you with a picture of a grid indicating the six strings on a guitar. Just 
press the number corresponding to any string to turn on that tone 
When you want to turn off the tone, press any key. 



IHE GUXTAR 1UNER 



100 REM **# 7#£ GUIT/m TUHER *** 

110 DIM S<5),A*(U),B«(11),C*<11):F0R 

T-0 TO s:read K:S(T)«K:NEXT T:DATA 47 

64,81,108,144,193 

120 FOR T-1 TO 11:READ K: A«(T, T)=CHR* ( 

k):read k:b«(t,t)-chr«(K):read k:c»(t. 

T)=CHR»(K):NEXT t 

130 data 23,124,19,18,32,18,23,124,19, 

18, 32, 18, 23, 124, 19, IS, 32, 18, 23, 124, 19, 
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18,32,18,23,124,19,18,32,18,23,124,19 
140 POKE 752, l: PRINT CHR» (125) IPOSITIO 
N 12, 3: PRINT "THE GUITAR TUNER": X=14:Y 

-6 

150 POSITION X,Y: PRINT A*: FOR T=l TO 1 

O STEP 2:P0SITI0N X,Y+T:PRINT b«:posit 

ION x,y+t+i:print C»:NeXT T 

160 position X,Y+12:PRINT "654321 

"••OPEN #1,4,0, "K:": POKE 764,255 

170 IF PEEK (764) =255 THEN 170 

180 GET »1,K:K=K-49:IF K<0 OR K>5 THEN 

GOSUB 300: SOUND 0,0, 0,0: GOTO 170 
190 OOSUB 300: POSITION X+10-K»2, Y-1:PR 
INT CH»» (20): SOUND 0,S(K) , 10, 10:G0T0 1 
70 

300 POSITION X,Y-l: PRINT " 
: RETURN 
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Qifitar Chard Tutor 

Once you've got your guitar tuned up, you might want a little help 
with mastering guitar chords. This program will give you the finger- 
ing, name, and sound of the chords most commonly used on the 
guitar. 
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<NUMBER> piajji string 
^fcEIIE"* Major- cHord 
<CONTROL. l_ETTER> Severith chord 
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The Guitar Tutor program displays the top frets of a guitar 
finger board and the most used chords in five keys. Type the letter 
corresponding to the chord you want to learn. Press CONTROL plus a 
letter to select a major seventh chord. Press the numbers one through 
six to hear each note of the chord. The numbers on the frets tell you 
which fingers to use in forming the chord. 

100 REM #* BUn/iR CHORD TUTOR »» 

1),T» (2): GRAPHICS OrPOKE 752,1:'' 
120 FOR T=0 TO 5: FOR J=0 TO 3: READ K 
130 S(T,J)=K:NEXT J:NEXT T:DATA 47,45, 
42,40,64,60,57,53,81,76,72,68,108,102, 
Itn hi'^t' J^^ ^^^' 121, 193, 182, 173, 162 
^??JSn I'L^^ ii:read K:A*(T,T)=CHR*< 
K):read k:b*(t,t)=chr«(k):read k:c«(t 

T)=CHR*(K):NEXT T:0PEN #1,4,0. "K:" 
JI^o'^Io ^^' ^^*' '*'' ^^' 32, 18, 23, 124, 19, 
Ji'?^' J^'^^' ^^*' ^'' ^^'32, 18,23, 124, 19 
IfA oA^^'^^* *^*' ^'^' ^^'=^2, 18,23, 124, 19 
160 POSITION 10,1:? "GUITAR CHORD TUTO 

R":x=21:y=4:for t=o to 4: for j=o to 2- 

READ T*: position 5+J»4,5+T»2 

170 ? T»:NEXT J : next TiDATA C,G7.F.G,D 

7,C,D,A7,G,A,E7,D,E,B7,A 

200 POSITION 2,20:? ••<NUMBER> Play str 

ing":? ••<LETTER> Major chord":? "<CONT 

ROL LETTER> Seventh chord" 

210 K=67:SOTO 400 

300 QOSUB 900: RESTORE 800+FF+K:F0R T=0 
TO 5: READ P:C<T)=P:READ T» 

310 P=(P<>-1)»P: POSITION X+10-T»2.Y-1+ 

P*2:? T*:NEXT T 

320 GET #1,K:IF K<49 OR K>54 THEN 400 

330 K=K-49: QOSUB 950: POSITION X+10-K*2 

,Y+14:? CHR*(20) 

340 IF C(K)<>-1 THEN FOR T=15 TO STE 
P -l: SOUND 0,S(K,C(K)),10,T:F0R J=1 TO 

2: NEXT J: NEXT T: SOUND 0,0,0,0 
350 GOTO 320 

400 IF K>0 AND K<8 THEN 450 
410 IF K<65 OR K>71 THEN 320 
420 K=K-65:IF K=l THEN 320 
430 POSITION 35,7:? CHR* (65+K) J " ":FF= 
0:GOTO 300 

450 K=K-l:IF K=2 OR K=5 THEN 320 
460 POSITION 35,7:? CHR* ( 65+K ) } " 7 " : FF=. 
10:G0T0 300 

800 DATA 0,0,2,4,2,3,2,2,0,0,0,0 
802 DATA 0,0,1,1, 0,0,2,2,3,3,-1, X 
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803 DATA 2,2,3,3,2,1,0,0,0,0,-1,X 

804 DATA 0,0,0,0,1,1,2,3,2,2,0,0 

805 DATA 1,1,1,1,2,2,3,4,3,3,1,1 

806 DATA 3,3,0,0,0,0,0,0,2,1,3,2 

810 DATA 0,0,2,3,0,0,2,2,0,0,0,0 

811 DATA 2,4,0,0,2,3,1,1, 2,2,-1, X 

813 DATA 2,3,1,1, 2,2,0,0,0,0,-1, X 

814 DATA 0,0,3,4,1,1,2,3,2,2,0,0 
816 DATA 1,1,0,0,0,0,0,0,2,2,3,3 

900 POSITION X,Y-l:? " ":POS 

ITION X,Y:? as: FOR T=l TO 10 STEP 2-PO 

SITION X,Y+T:? B« 

910 POSITION X,Y+T+l:? C»:NEXT T: POSIT 

ION X,Y+12:? "65432 1 " 

950 POSITION X,Y+14:'' " "-rf 

TURN 
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Music Match and Noise MaUh 

Here are two matching games involving sound. In the Music Match 
game you are presented with a grid with the letters from A to P 
printed in order in the squares. When you press a letter, you will hear 
a tune. Each tune is repeated twice on the grid. The goal of this 
two-player game is to press two letters on your turn that play the 
same tune. The game provides good ear training. You have to 
remember tunes and match them up. Each player presses two letters 
per turn. Whenever someone makes a match, however, they get 
another chance. Here's a picture of the grid followed by the game 
program: 
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100 REM **» WSJC MfiTCH *** 

110 GOTO 400 

200 RESTORE 300+R*10 

210 READ P:IF P=-l THEN SOUND 0,0,0,0: 

RETURN '>>'-•• 

220 READ D:SOUND 0, 0,0,0:SOUND O.P, 10, 

10: FOR T=l TO D*40:NEXT T:G0T0 210 

300 DATA 81,2,60,2,81,2,72,2,81,1,81,1 

,60,2,81,2,72,2,81,1,81,1,60,2,81,2,72 

,2,81,1,81,1,96,2,108,2,121,3,-1 

310 DATA 108,2,81,2,81,2,81,2,108,2,96 

,2,96,2,108,2,108,2,81,2,81,2,72,2,72, 
2,64,4,81,4,-1 

320 DATA 81,1,81,1,81,2,91,2,96,2,96,2 

,108,2,96,2,91,4,108,4,-1 

330 DATA 108,4,108,4,108,3,96,1,85,4,8 

5,3,96,1,85,3,81,1,72,8,-1 

340 DATA 108,2,64,1,64,1,64,1,64,1,60, 

2, 64, 2, 72, 2, 72, 4, 108, 1 , 108, 1 , 72, 1 , 72, 1 

,72,1,72,1,64,1,64,1,72,2,81,2,81,4,-1 

350 DATA 64,2,81,4,64,2,81,3,81,1,96,1 

,108,3,81,1,81,1,81,1,81,1,64,1,53,1,5 
3,2,53,4,-1 

360 DATA 81,2,64,2,60,2,53,4,64,4,64,2 

,81,2,64,2,60,2,53,4,64,2,47,2,53,4,64 
,4,72,4,-1 

370 DATA 81,4,81,3,72,1,64,4,64,4,72,3 

,81,1,72,3,64,1,81,4,108,4,81,4,81,3,7 

2, 1 , 64, 4, 64, 4, 72, 3, 81 , 1 , 72, 3, 64, 1 

375 DATA 81,4,-1 

400 DIM A*(16),B»(36),D»(1),X(15),Y(15 

),K(1),r<i),s(1):graphics o:poke 752.1 
:? :OPEN #1,4,0, "K:" 
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410 restore 900: for t=l to 36: read k:g 
*(t,T)=chr*(K):next t 

420 L=0:F0R Y=0 to 3:F0R X=0 to 3:X(L) 

=16+x*2:y(L)=7+y*2:l=l+i:next x:next y 
500 ? chr*( 125): position 6,2:? "»*• th 
e music match game »»*":poke 82, 15 

510 POSITION 15,6:? G*(l,9):? B*(10,18 
):FOR T=l TO 3:? G*(19,27):? G*(10, 18) 
:NEXT T:? G* (28, 36): poke 82,2 
520 FOR T=0 TO 15: POSITION X(T>,Y(T):? 

CHR«(65+T) :NEXT T:AS= "«*♦***»«»***»** 
*":FOR T=0 TO 7: FOR J=0 TO 1 
530 R=INT(RND(l)»16)+l:IF A*(R,R)<>"»" 

THEN 530 
540 A*(R,R)=STR*(T):NEXT J: NEXT T:MM=0 

:S(0)=o:s(1)=o:pl=o:gosub soo 
600 position 4,12:? " ":if pl=0 
then position 4,12:? "player 1" 

610 POSITION 27,12:? " "ilF PL= 

1 THEN POSITION 27,12:? "PLAYER 2" 

620 FOR C=0 TO 1 

630 D*=STR*(0):POKE 702, 64: GET #1,K:K= 

K-65:IF K<0 OR K>15 THEN 630 

640 IF C=l THEN IF K=K(0) THEN 630 

650 IF A*(K+1,K+1)="»" THEN 630 

660 POSITION X(K),Y(K):? "*":R=VAL (A* ( 

K+1 , K+1 ) ) : GOSUB 200: K (C) =K: R <C) =R: NEXT 

C: IF R(0)=R(1) THEN 700 
670 FOR C=0 TO 1: POSITION X(K<C>),Y(K( 
O): PRINT CHR*(65+K(C)):NEXT C:PL=1-PL 
:GOTO 600 

700 FOR C=0 TO 1: POSITION X(K(C)>,Y(K( 
O): PRINT CHR*(160):A»<K(C)+1,K(C)+1) = 
"»":NEXT C:S(PL)=S<PL)+10:GDSUB 800 
710 MM=MM+l:IF MM<8 THEN 600 
720 POSITION 2, 17: IF S<0)=S(1) THEN ? 
"TIE GAME ! " ; : GOTO 750 
730 T=l:IF S(1)>S(0) THEN T=2 
740 ? "YOU DID IT PLAYER ";T 
750 POSITION 12,21:? "PRESS ANY KEY... 
":P0KE 764,255 

760 IF PEEK (764) =255 THEN 760 
770 POKE 764, 255: GOTO 500 
800 POSITION 4,8:? "SCORE: "sS(0):POSI 
TION 27,8:? "SCORE: ";S (1 ) :RETURN 
900 DATA 17,18,23,18,23,18,23,18,5,124 
,32, 124,32, 124,32, 124,32, 124, 1, IS, 19, 1 
8, 19, IB, 19, 18,4,26, 18,24, 18,24, 18,24 
910 DATA 18,3 

Here is the section of the program that contains the data for the 
tunes used in the game: 
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200 RESTORE 300+R»10 

210 READ P:IF P=-l THEN SOUND 0,0,0.0: 

RETURN . .v.w- 

220 READ D: SOUND 0,0, 0,0: SOUND O.P.IO 

10: FOR T=l TO D»40:NEXT TZBOTD 210 ' 

^^n S**!? SI, 2.60.2,81, 2, 72,2,81, 1,81,1 

,60,2,81,2,72,2,81,1,81,1,60,2,81,2,72 

,2,81,1.81.1.96.2.108.2.121.3.-1 

310 DATA 108.2.81,2,81.2.81,2.108,2,96 

,2.96,2,108,2.108.2,81.2.81,2,72,2.72. 
2.64,4,81,4,-1 

320 DATA 81,1,81,1,81,2,91,2.96,2,96,2 
, 108, 2, 96, 2. 91 . 4. 108. 4.-1 

330 DATA 108,4,108.4.108.3.96.1.85,4.8 

5.3,96.1,85,3.81.1.72,8,-1 

340 DATA 108.2,64,1.64.1,64.1.64,1,60, 

2,64 2,72,2.72,4.108,1.108.1.72.1,72,1 

,72,1,72.1.64.1.64.1,72.2.81,2.81.4.-1 

'^L^^^** ^*. 2. 81 , 4. 64. 2. 81 , 3, 81 . 1 . 96, 1 

,108 3.81,1.81,1,81,1,81,1,64,1,53,1 5 
3,2,53,4,-1 

360 DATA 81,2,64,2,60,2,53,4,64,4,64,2 
'51^2,64^2,60,2,53,4,64.2.47.2.53.4.64 

370 DATA 81,4,81,3,72,1.64.4,64.4.72,3 
,81,1.72.3.64,1.81.4.108.4,81.4.81.3,7 
2,1.64,4.64.4.72,3,81,1,72,3,64,1 
375 DATA 81,4,-1 



Notice that, at line 210, the computer is instructed to READ P 
and also note that IF P=-l THEN SOUND 0,0,0,0 which shuts the 
sound off. The -1 is a flag to indicate that a tune has been finished. It 
is used in the same way here as it was used in the short program in 
the introduction to this part. Also note that lines 300 to 375 contain 
the tunes, each one ending with a -1. If you want to create tunes for 
your own version of the game, simply replace these data statements 
with the numbers corresponding to the notes in your tunes. 



The Noisy Match or, as we've called it. Noisy Concentration 
uses the same grid as Music Match and is played in the same way. 
However, it uses the special effects sounds that you can make with 
the SOUND function of the Atari 800. It is an easier game to play 
than Music Match and you might want to begin with it rather than 
with Music Match. 
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100 REM ##* HOISy CONCENTRdTION *** 

110 SOTO 400 

200 GOSUB 300+R*10: SOUND 0, 0,0,0: SOUND 

1,0, 0,0: RETURN 
300 FOR T=l TO 3: FOR J=20 TO O STEP -1 
: SOUND 0,J,10,10:NEXT J: NEXT T: RETURN 
310 RESTORE 310: FOR J=l TO 6: READ L:FO 
R T=l TO a:SOUND 0,L, 10, 10: SOUND 0,L+2 
,10, 10:NEXT T:NEXT J:RETURN 
315 DATA 12,6,7,11,5,9 

320 FOR T=0 TO 100 STEP 2: SOUND 0,T,10 
,10: SOUND 1,100-T, 10,10:NEXT T: RETURN 
330 FOR T=12 TO 5 STEP -1:F0R L=15 TO 

STEP -2: SOUND 0,T, 10,L:NEXT L:NEXT T 
: RETURN 

340 FOR T=l TO 9: SOUND 0,T»T, 10, 10:F0R 
J=T TO T+10:S0UND 1, J, 10, 10:NEXT J:NE 

XT T: RETURN 

350 FOR T=l TO 40: SOUND 0,5,4, 10: SOUND 
1,5,4, 10: NEXT T: RETURN 

360 for t=l to 25: for j=0 to 1: sound o 

, 252+j, 10, 10: sound 1 , 254+j, 10, 10: next 

j: next t: return 

370 for t=0 to 18 step 2: sound 0,t,2,1 

5: for j=l to 30: next j: next t: return 

400 dim a*(16),g«(36),d»<1),x(15),y<15 

),k<i),r(1),s(1):braphics o:poke 752,1 

:? :OPEN «l,4,0, "K:" 

410 restore 900: for t=l to 36: read k:g 

»(t,T)=chr«(K):next t 

420 L=0:F0R Y=0 to 3: for X=0 to 3:X(L) 

-16+x*2:Y(L)=7+y»2:l=l+i:next x:next y 
500 ? chr«( 125): position 6,2:? "**♦ NO 
ISY concentration »*»":P0KE 82,15 
510 POSITION 15,6:? G*(l,9):? B*(10,18 
):FOR T=l TO 3:? Q*(19,27):? G*(10,18) 
:NEXT T:? G* (28, 36): poke 82,2 

520 for t=0 to 15: position x(t),y(t):? 
chr* (6s-i-t) : next t: a*= "*«**««*«**»**»« 
*":for t*o to 7: for j=o to 1 

530 R=INT(RND(l)»16)+l:IF A»(R,R)<>"»" 

THEN 530 
540 A*(R,R)=STR*(T):NEXT J: NEXT T:MM=0 

:s(0)=o:s<i)=o:PL=o: GOSUB aoo 

600 POSITION 4,12:? " ■■:IF PL=0 

THEN POSITION 4,12:? "PLAYER 1" 
610 POSITION 27,12:? " ":IF PL= 

1 THEN POSITION 27,12:? "PLAYER 2" 
620 FOR C=0 TO 1 

630 D*=STR»(0):POKE 702, 64: SET #1,K:K= 
K-65:IF K<0 OR K>15 THEN 630 
640 IF C=l THEN IF K=K(0) THEN 630 
650 IF A*(K+1,K+1)="«" THEN 630 
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660 POSITION X(K),Y(K):? •■*":R=VAL (A* ( 
K+1 , K+1 ) ) : BOSUB 200: K (C) =K: R <C) =R: NEXT 

C:IF R(0)=R<1) THEN 700 
670 FOR C=0 TO 1: POSITION X(K(C)),Y(K< 

O): PRINT chr»(6S+k<C)):next c:pl=i-pl 

:G0T0 600 

700 FOR C=0 TO 1: POSITION X(K<C)),Y(K( 

O): PRINT CHR«(160):A*(K(C)+1,K(C>+1) = 

'••":next c:S(pl)=S(PL)+io:bosub aoo 

710 MM=MM+l:IF MM<8 THEN 600 

720 POSITION 2, 17: IF S(0)=S(1) THEN -> 

"TIE SAME!";: GOTO 750 

730 T=l:lF S(1)>S(0) THEN T=2 

740 ? "YOU DID IT PLAYER ";T 

750 POSITION 12,21:? "PRESS ANY KEY... 

":P0KE 764,255 

760 IF PEEK <764J =255 THEN 760 

770 POKE 764, 255: GOTO 500 

BOO POSITION 4,8:? "SCORE: ";S(0):POSI 

TION 27,8:? "SCORE: ";S(1 ) :RETURN 

900 DATA 17,18,23,18,23,18,23,18,5,124 

, 32, 124, 32, 124, 32, 124, 32, 124, 1 , 18, 19, 1 

8, 19, 18, 19, 18,4,26, 18,24, 18,24, 18,24 

910 DATA 18,3 

If you compare the programs for these two games you'll see that 
they are essentially identical except for the DATA statements on 
lines 200 to 375. Here are the data lines for Noisy Concentration. 
Notice that they change the B variable in the SOUND A,B,C,D com- 
mand. You can fiddle around with them and create your own effects. 

200 GOSUB 300+R*10: SOUND 0,0, 0,0: SOUND 

1,0, 0,0: RETURN 
300 FOR T-1 TO 3: FOR J-20 TO O STEP -1 

: SOUND o,j,io,io:next j:next t: return 

310 RESTORE 310: FOR J»l TO 6: READ L:FO 

R T=l TO 8:S0UND 0,L, 10, 10: SOUND 0,L+2 

,10, 10:lNEXT T:NEXT J:RETURN 

315 DATA 12,6,7,11,5,9 

320 FOR T-0 TO 100 STEP 2: SOUND 0,T,10 

,10:S0UND 1,100-T,10, 10:NEXT T:RETURN 

330 FOR T-12 TO 5 STEP -1:F0R L-15 TO 

O STEP -2: SOUND 0,T, 10,L:NEXT L:NEXT T 

: RETURN 

340 FOR T=l TO 9:S0UND 0,T*T, 10, 10:F0R 

J=T TO T+IO: SOUND 1, J, 10, 10: NEXT J:NE 
XT T: RETURN 
350 FOR T=l TO 40:S0UND 0,5,4, 10: SOUND 

1,5,4, 10: NEXT T: RETURN 
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360 FDR T»l TO 25: FOR J=0 TO 1: SOUND 
,2S2+J, 10, 10: SOUND 1,2S4+J, 10, 10: NEXT 
J: NEXT T: RETURN 
370 FOR T*0 TO 18 STEP 2: SOUND 0,T,2, 1 

s:for j-1 to 30: next j:next t: return 
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computer utility is a program that can be used in many 
different contexts. A good example of a utility is a word processing 
program. Such programs can be used'to write business or personal 
letters, take notes, or write a poem, novel, or science fiction book. It 
can also be used to lay out a newsletter or advertising brochure. You 
determine the use given the constraints of the program. Without your 
use, however, it does nothing. This is quite different than, say, a 
preprogrammed game that runs one way and can only be used as the 
programmer intended. 

In this section we'll provide you with a number of simple utili- 
ties. For example, one may be the world's cheapest and shortest word 
processor. Others will allow you to tailor graphs for yourself, to set up 
a ballot and ballot counter, and turn your computer into a calculator. 
Some of the utilities will have wide applications and others will be 
more specialized. Once you begin to feel comfortable as a programmer 
you should think of creating a library of your own utilities and sub- 
routines that is stored on disk. That way, you will be able to add them 
to other programs you build or use them without having to go 
through the tedious process of typing them in. It's a good idea to 
number your subroutines and utilities beginning somewhere around 
2000. That way, you can add them onto other programs just by load- 
ing them on top of programs that have lower numbers. 
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Scratcfi Padt AMm-WOrd Processor 

This program provides a quick and easy 40-column word processor. 
When you run this program, you'll see nothing but a blank screen and 
the cursor. That's how it should be. There are no frills here, just a 
blank page for you to write on. Type anything you want. Use upper 
and lower case letters. All of the normal editing functions of the Atari 
are available to you, including clear screen, insert space, delete space, 
backspace, line insert and delete, and tab. When you near the end of a 
line, press RETURN just as you would on a typewriter. After you are 
done and want to print out what you have written, turn on your 
printer and press the START key. Whatever is on the screen will 
print out. To stop the printing before it's finished, press START 
again. 

Here's a little shape poem created with the sketch pad and 
printed out on an EPSON MX-80 printer: 
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LOVE LOVE 

LOVELDV LOVELOVE 

LOVELOVELOVELOVELOVEL 
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LOVELOVELOVELOVELOVEL 

LOVELQVELOVELOVELOV 

LOVELOVELQVELOVEL 

LOVELOVELOVELOV 

LOVELOVELOVEL 
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LOVELDVEL 

LOVELOV 

LOVEL 

LOV 
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100 REM *** SCRATCH Pftn *** 

HO GRAPHICS 0:D:M T»(40) 

120 OPEN #1,4,0, "K:" 

200 IF PEEK (53279) x=6 THEN 500 

210 IF PEEK (764) =255 THEN 200 

220 BET #1,K 

230 IF K>27 AND K<96 THEN 400 

240 IF K>96 AND K<123 THEN 400 
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250 IF K>123 AND K<128 THEN 400 

260 IF K>154 AND K<160 THEN 400 

270 IF K=254 OR K=255 THEN 400 

280 IF PEEK (694)00 THEN POKE 694,0 

290 IF PEEK ( 702 )>64 THEN POKE 702,64 

300 BOTO 200 

400 PRINT CHR«(K); 

410 BOTO 200 

500 TRAP 200 

510 M=PEEK(8B)+256*PEEK(B9) 

520 FOR Y=0 TO 23:B=M+Y»40 

530 FOR X=0 TO 39:T=PEEK(B+5t) 

540 IF T<64 THEN T=T+32 

550 T*(X+1,X+1)=CHR»(T):NEXT X 

560 LPRINT T« 

570 IF PEEK (53279) =6 THEN 600 

580 NEXT YIGOTO 200 

600 IF PEEK (53279) =6 THEN 600 

610 SOTO 20O 
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Qraph Generator 

This short program will produce a bar graph with up to 20 diiferent 
bars. You can enter as many as 20 different labels and values. You can 
use up to seven-place numbers. The program will automatically scale 
the values you place in it so that what you will see is a graph of the 
relative sizes of the values of your labels. The values will also be 
printed out next to the labels as in this graph of the LOVE/HATE 
continuum: 
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In each graph, the largest number will fill up the entire space 
allotted to the graph. Here is the program, followed by some sugges- 
tions of the kinds of graphs you might want to experiment with: 

lOO REM **# BR/iPH GENERftTOR *#* 

110 DIM V(19),B(2),T*(30),L*<&),A»(120 

) .-GRAPHICS 0:P0KE 752, 1 : 6 <0) =22: S ( 1 ) =2 

5: G (2) =130: POKE 82,1 

200 PRINT CHR*< 125): POSITION 10, 1:PRIN 

T "BAR GRAPH GENERATOR" 

210 POSITION 3, 3: PRINT "GRAPH TITLE: " 

5: INPUT T»: POSITION 2, 3: PRINT CHR»(156 

220 M=0:F0R T=0 to 19: POSITION 3,T+3:P 

RINT "#"ST+1: POSITION 7,T+3:PRINT "LAB 

EL: VALUE: " 

230 POSITION 14, T+3: INPUT L* 

240 TRAP 300: POSITION 30, T+3: INPUT V 

250 IF V>M THEN M=V 

260 A»(T«6+1,T*6+6)=L*:V(T)=V:NEXT T 

300 TRAP 40000: L=T-l: PRINT CHR»(125):P 

OSITION 20-LEN<T*)/2,l: PRINT T* 

310 m=ioo/m:for t=o to l: position 1,T+ 
3: print a* (t»6+l, t»6+6) : position 8, t+3 

:PRINT V(T) 

500 K=INT ( V (T) »M) : HV=INT (K/4> : LV=K-HV» 

4: POSITION 15, T+3 

510 IF HV>0 THEN FOR J=l TO HV: PRINT C 

HR*( 160);: NEXT J 

520 IF LV>0 THEN PRINT CHR*(G(LV-1) ) 
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530 NEXT T: POSITION 15, 23: PRINT 

START"; 
600 IF PEEK (53279)06 THEN 600 
610 POKE 764, 255: GOTO 200 



"Prmsm 



Some graphing ideas: 

• Graph school grades. 

• Graph your monthly expenses and see the relative proportions of 
your income that you spend on food, rent, entertainment, etc 

• Graph income distribution, age distribution, voting patterns and 
other demographics of your community. 

• Graph the won-lost percentages of your favorite teams and see 
which teams have done the best over a period of time 

• Do a personal preference test or a survey of people's favorite 
records or movies and see the relative positions of the first 20 
printed out in graph form. 
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The Bai(ot BoK 

This is a voting utility. It allows you to set up anywhere from 1 to 5 
different offices or positions to vote for. In each position, you can 
have up to five candidates. After the ballot is set up you can use your 
computer as a voting machine or you can tally individual ballots with 
It yourself. You can save your ballot on disk, load it any time you 
want and have tallys of the results of the voting listed out for you as 
in this screen dump for the election of a HIGH MUCK MUCK: 
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THE OFFICIAL BALLOT BOH 

HIGH MUCK MUCK 

CRAZV CAT 3 

FELIX 7 



PRES5 SELECT 



This utility can be used for school or club elections, popularity 

polls, voter preference surveys, etc anything that requires a vote 

can be recorded and tallied using it. 

100 REM *** 7H£ BftLLOT BOX *** 

110 DIM A*(150),B*(750),T»(30),C(4),V( 

4,4): OPEN #1,4,0, "K:":G0SUB 910 

120 GRAPHICS 0:P0KE 752,1:? :DATA 1. S 

at up the ballot, 2. Save ballot to dis 

k,3. Load ballot from disk, 4. Vote 

200 GOSUB 900: RESTORE :FOR T=l TO 4: RE 

AD T*:? T*:? :NEXT T 

210 GET #1,K:K=K-48:IF K<1 OR K>4 THEN 

210 
220 ON K GOTO 300,500,550,600 
300 GOSUB 910: GOSUB 900:? "HOW MANY OF 
FICES? (1-5)": GET »l,P:P=P-49: IF P<0 
R P>4 THEN 300 

310 FOR M=0 TO P: GOSUB 900:? "ENTER NA 
ME OF OFFICE #";M+1:? : INPUT T«: IF T»= 
"" THEN M=M-1:NEXT M 
320 A* ( M*30+ 1 , M*30+30 ) =T* 
330 GOSUB 900:? T*:? :? "HOW MANY CAND 
IDATES? (1-5)": GET »l,C:C=C-49: IF C<0 
OR C>4 THEN 330 

340 C(M)»C:FOR T=0 TO C:POSITION 2,10+ 
T»2:? CHR*( 156): POSITION 2,10+T*2:? "C 
ANDIDATE »" ; T+1 ; " " ; : INPUT T* 
350 IF T*="" THEN T=T-1:NEXT T 
360 B* ( M» 1 50+T*30+ 1 , M* 1 50+T»30+30 ) =T» : 
NEXT T:NEXT M:G0T0 200 
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500 TRAP 520: CLOSE #2: OPEN #2,8,0, "DrB 

ALLOT. DAT": PUT #2,P:F0R T=0 TO P:PUT # 

2,C(T):NEXT T 

510 FOR M=0 TO P:? #2; A*(M«30+1,M»30+3 

0):F0R T=0 to C(M):? #2;B*(M«150+T»30+ 

1,M*150+T*30+30):NEXT t:next m 

520 CLOSE #2:B0T0 200 

550 TRAP 520: CLOSE #2: OPEN «2,4,0,"D:B 

ALLOT. DAT": GET #2,P:F0R T=0 TO P:SET # 

2,k:C(T)=k:next t 

560 FDR M=0 TO P: INPUT #2; T«: A*<M*30+1 
,M*30+30)=T*:FDR T=0 to C(M): INPUT #2; 
T*: B* <M*150+T*30+1 , M*150+T*30+30) =T« 
570 NEXT T:NEXT M:SOTO 520 
600 FOR T=0 TO 4: FOR J=0 TO 4:V(T.J)=0 

:next J: next t 

610 GOSUB 900:? "PRESS START TO CAST Y 

OUR BALLOT":? :? "PRESS OPTION TO END 

THE VOTING" 

620 IF PEEK (53279) =3 THEN 800 

630 IF PEEK (53279)06 THEN 620 

700 FOR M=0 TO P: GOSUB 900:? A»(M»30+1 

,M«30+30) :FOR T=0 TO C (M) : POSITION 2.1 

0+T»2 

710 ? T+l;". ";B*(M»150+T»30+1,M*150+T 

»30+30) :NEXT T 

720 GET #1,V:V=V-49:IF V<0 OR V>C(M) T 

HEN 720 

730 V<M,V)=V(M,V)+1:NEXT M:G0T0 610 

800 FOR M=0 TO P: GOSUB 900:? A*(M*30+1 

, M»30+30) : FOR T=0 TO C(M) 

810 POSITION 2, 10+T*2:? B* (M«150+T*30+ 

l,M»150+T»30+30) ;V<M,T) :NEXT T:POSITIO 

N 14,22:? "PRESS SELECT" 

820 IF PEEK (53279)05 THEN 820 

830 NEXT M:G0T0 200 

900 ? CHR*( 125): POSITION 8,2:? "THE OF 

FICIAL BALLOT BOX" : POSITION 2, 6: RETURN 

910 B*(i)=" ":b*(750)=" ":b«<2)=b*:a«= 

B*: RETURN 
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AMress CardlUe 



The Address Card File can be used to store filing cards with any six 
different pieces of information. The form we are providing asks a 
persons name, address, city/state, home phone, and work phone- it 
also provides an extra line for remarks as in this entry 



***M* ADDRESS CARD FIl_E iMM» 



Ha Me 
Oddness 

Ho Me Rhone^ 
wonK PHone 
ReMai-Ks 



^tikiH* CAESAR 

SUEi'*^'*'- PALACE 

ROME, ITALV 

ROVAI_-22 

NOME 

HAS TEMPER 



X. Fl»p -forward 

2. Flip backward 

3. Flip -to letter 

4. Add a new card 

f- E^i?*® current card 

&. Modxf^s/ current card 

«■ k2^2 tH^ font disk 

°- Save file to disk. 



As you can see, the bottom of the screen shows you the options 
available to you with the program. You can flip forward and backward 
to see other cards, begin at any letter (the program automatically 
alphabetizes your entries), add a new entry, change an old entry, and 
save and retrieve your cards on disk. Here is the program: 

100 REM #*# ODDRESS CdRO FILE #*# 

no az=150:fz=150:sz=az*15o:dim n»<sz) 

,B»(FZ),K»(FZ),T*(25):0PEN #1,4,0, "K:" 

:60SUB 81o:b«==n* 

120 C=AZ-l:P=C: GRAPHICS 0:POKE 752, l:P 
OKE 82, 2: POSITION 7,2:? "»»» ADDRESS C 
ARD FILE *»»■■: POSITION 2,6 
130 FOR T=l TO 6: READ T*:FOR J=l TO 10 
:? CHR*(128+ASC(T*(J,J)));:NEXT J:PRIN 

T :next t 
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140 POKE 82, 10: POSITION 10, 15: FOR T=l 
TO 8: READ T«:? T;". ";t*:next t:bosub 
850 

200 SET #1,K:K=K-4B:IF K<1 or K>8 then 
200 

210 POP :pop :on k boto 300,350,400.45 

0,500,550,600,650 > , , ^ 

300 p=p-i:iF p<c+i then P=AZ-1 

310 60SUB 850: BOTO 200 

350 P=P+l:IF P=AZ THEN P=C+1:IF P=AZ T 
HEN P-AZ-1 

360 BOSUB 850: BOTO 200 

400 POSITION 2,4:? "WHICH LETTER''":BET 
#1,K:KS=CHR«(K):IF K*>="a" AND K»<="2 
" THEN K»=CHR«(K-32) 
410 IF K*<"A" OR K*>"Z" THEN 440 
420 FOR J=AZ-1 TO C+l STEP -1:IF N»<J» 
FZ+1,J»FZ+1)<K» THEN NEXT J: BOTO 440 
430 P<:J: BOSUB 850 

440 POSITION 0,4:? B* (1,39) : BOTO 200 
450 BOSUB 800 

455 POKE S2,13:F0R T=0 TO 5:P0SITI0N 1 
3,6+T:P0KE 752, O: INPUT T*: IF T>0 THEN 
SOTO 470 

460 FOR J=AZ-1 TO C STEP -1:IF T«>N«(J 
♦FZ+l,J«FZ+25) THEN NEXT J:J=J+1 
465 N»(1,J«FZ)=N«(151, (J+1 )»FZ) :N*(J»F 
Z+1, J»FZ+FZ)=B» 

470 N« ( J*FZ+T*25+1 , J*FZ+T*25+25) =T*: NE 
XT T:POKE 752, l: P= J: BOSUB 850:C=C-1:BD 
TO 200 

500 BOSUB 510:S0SUB 850: BOTO 200 
510 IF C=AZ-1 THEN RETURN 
520 FOR J=P TO C+l STEP -1:K=J-1:N*(J* 
FZ+1 , J»FZ+FZ) =N* (K*FZ+1 , K«FZ+FZ) : NEXT 

J 

530 C=C+l:IF P=C THEN P=AZ-1 

540 RETURN 

550 IF C=AZ-1 THEN 200 

560 BOSUB 520: BOTO 455 

600 POSITION 3,4:? "REPLACE FILE IN ME 

MORY? Y/N":SET #1,K:IF CHR*(K)="Y" OR 

CHR*(K)="y" THEN 620 

610 POSITION 0,4:? B*( 1,39): CLOSE #2:S 

OTO 200 

620 TRAP 610:CL0SE #2:0PEN #2,4,0. "D:A 

DDRESS.DAT" 

630 BET #2,C:F0R J=AZ-1 TO C STEP -1:1 

NPUT #2, K»: N» ( J»FZ+1 , J»FZ+FZ ) =K»: NEXT 

J:P=AZ-1:B0SUB S50:BDT0 610 

650 POSITION 3,4:? "REPLACE FILE ON DI 

SK? y/N":bet #i,k:if chr*(k)<>"Y" and 
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CHR*(K)<>"y" THEN 610 

660 TRAP 610: CLOSE #2: OPEN #2,8,0, "D: A 
DDRESS.DAT": PUT #2,C 

670 FOR J=AZ-1 TO C STEP -1: PRINT #2;N 
*(J*FZ+1,J*FZ+FZ):NEXT J:S0T0 610 
800 FOR T=0 to 5: position 13, 6+T: PRINT 
B*< 1,26): NEXT T: RETURN 

810 N»(l)= N*(SZ)=" ":N*(2)=N»:RETU 

RN 

850 POKE 82, 13: POSITION 13,6:F0R T=0 T 
O 5:? •■ ";N*(P*FZ+T»25+1,P»FZ+T»25+25) 

:next t: return 

900 DATA Name .Address . , City/St 

ate, Home Phone, Work Phone, Remarks ,F 

lip -forward, Flip backward 

910 DATA Flip to letter, Add a new card 

, Delete current card, Modify current ca 

rd,Load -file -from disk 

920 DATA Save file to disk 



Although the program is set up for addresses, it can easily be 
changed so that you can put recipes on it or organize a collection. For 
example, if you collect baseball cards, you can set up the program so 
that it stores: 

PLAYERS NAME: 
TEAM: 
POSITION: 
BATTING AVERAGE: 
FIELDING PERCENT: 
COMMENTS: 

To do this, you have to change the data line 900. If you also want to 
organize your baseball cards alphabetically by team, put the TEAM 
category first and all of the players on the same team will be grouped 
together. 
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ACaicuUstor UdOty 

For all of the sophistication of home computers, it can become frus- 
tratmg when you can't use them as simple calculators. In the future 
calculator functions will probably be built into the machines How- 
ever, if you don't feel like waiting, here is a simple program you can 
copy and save to disk that will allow you to use your computer as a 
calculator whenever you care to. You can also add this program to 
other programs and build in a small calculator to games or other 
programs where fast calculation is useful. 

To use this program, you enter values and operators (+-*/=) as 
you would with any calculator. Press "C" for a complete clear Press 
ESC to clear only the current entry. Press "S" to change the sign value 
of the value currently in the window. 

100 REM #** THE CfiLCULATOK *#* 

110 DIM T»(16),K*(l),D»(l):OPEN #1,4,0 

,"K:": GRAPHICS o:poke 752,1 

120 ? CHR«( 125): POSITION 13,6:7 "THE C 
ALCULATOR": POSITION 10,8:? CHR*(17); 
130 FOR T=l TO 18:? CHR* ( 18) ; : NEXT T:"? 
CHR» (5): POSITION 10,9:? CHR* ( 1 24 ) : POS 
ITION 29,9:? CHR* (124): POSITION lO, 10 
140 ? CHR* (26);: FOR T=l TO IS:"? CHR* ( 1 
8);: NEXT T:? CHR*(3) 
150 T*="" 

200 D*=STR*(0):BET »1,K:K*=CHR*(K) 
210 IF K*="+" THEN P=l: POSITION 34, 9: P 
RINT "+":G0T0 500 

220 IF K*="-" THEN P=2:P0SITI0N 34,9:P 
RINT "-":G0T0 500 

230 IF K»="«" THEN P=3: POSITION 34. 9: P 
RINT "»":GOTO 500 

240 IF K*="/" THEN P=4:P0SITI0N 34.9:P 
RINT "/":G0T0 500 

250 IF K*="=" THEN GOSUB 900:FF=1 : AA=0 
:G0T0 150 
260 IF K*="C" THEN GOSUB 400: AA=0:KN=0 

:n=o:p=o: POSITION 34, 9: print •• ":goto 
150 

270 IF K*=CHR*(27) THEN GOSUB 400:N=0- 
GOTO 150 
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280 IF K*="." THEN 300 

290 IF K«="S" AND NOO THEN N=-N:T*=ST 

R* ( N ) : GDSUB 400:G0T0 340 

295 IF K»<"0" OR K»>"9" THEN 200 

300 IF LEN<T»)=16 THEN 200 

310 T*(LEN(T*)+1)=KS 

320 IF T*<>"." THEN N=VAL(T$) 

330 IF FF=1 THEN GOSUB 400:FF=0 

340 POSITION 2a-LEN(T»),9:PRINT T* 

350 GOTO 200 

400 POSITION 12,9 

410 PRINT " ■•: RETURN 

500 FF=l:IF AA=0 THEN AA=1 :KN=N:KP=P: G 

OTO 150 

510 IF KPOP THEN T=P:P=KP:KP=T: GOSUB 

900: P=KP: GOTO 150 

520 GOSUB 900: GOTO 150 

900 ON P GOTO 910,920,930,940 

910 n=n+kn:goto 950 

920 N=KN-N:G0T0 950 

930 N=N*KN:G0T0 950 

940 IF NOO THEN N=KN/N:BOTO 950 

950 T»=STR»(N): GOSUB 400: POSITION 28-L 

EN ( T* ) , 9 : PR I NT T* : KN=N : RETURN 
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THmgeoti Vice 

This utility allows you to choose the number of dice you want to roll 
and the number of sides per die. You can choose up to 8 dice and up to 
20 sides per die. In addition, it calculates the percentage of the possi- 
ble maximum score that your roll produces. For people who have 
played Dungeons and Dragons, the convenience of this program will 
probably be apparent. For anyone who wants to design a computer 
game with a complex element of choice built in, this can be a useful 
game subroutine. 

Here is an example of what the program can do. Suppose you 
choose to roll five 10-sided dice. The computer will print out the 
results on each die and then tell you the percentage of the maximum 
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score that your roll achieved. (In this case the maximum is 5*10=50.) 
Here is a possible roll: 

DIE 12 3 4 5 

SCORE 5 7 3 9 1 
PERCENTAGE=(TOTAL/50)*100=25/50*100=50% 

100 REM *#* VUH6E0H DIC£ *#* 

110 DIM D» (26): DATA 17,18,18,5,29,30,3 

0, 30, 30, 124, 32, 32, 124, 29, 30, 30, 30, 30, 2 

6,18,18,3,28,30,30,30 

120 GRAPHICS 0:P0KE 752,1:? :FOR T=l T 

O 26: READ K:D«(T,T)=CHR«(K):NEXT T 

200 GOSUB 500: POSITION 2,6:? "HOW MANY 

DICE? (1-8) ■•;: INPUT N:IF N<1 OR N>8 
THEN 200 

210 POSITION 2,8:? CHR* ( 156) : POSITION 
2,8:? "HOW MANY SIDES? (4-20) ";: INPUT 

S:IF S<4 OR S>20 THEN 210 
220 P=S*N:NsN-1: GOSUB 500 
230 POSITION 8,19:? "PRESS ANY KEY TO 
ROLL": POSITION 6,21:? "PRESS START TO 
CHANGE D I CE " : X=20- ( ( N+ 1 ) »2 ) 
300 POKE 764,255 
310 IF PEEK (53279) =6 THEN 200 
320 IF PEEK (764) =255 THEN 310 
330 FOR J=0 TO INT(RND(1)*3)+2:C=0:F0R 

T=0 TO N: POSITION X+T*4,7:R=INT(RN0(1 
)»S)+i:? o»;r 

340 SOUND O, 15+J,10,8:S0UND 1,20+T, 10, 

6:c=c+R:NEXT t:next J: sound 0,0, 0.0: so 

UND 1,0,0,0 

350 POSITION 15,13:? "TOTAL: ";Cj" ": 

POSITION 12,14:? "POSSIBLE: "JP;" " 

360 POSITION lO, 15:? "PERCENTAGE: ";IN 

T(C/P*100) ; "X ":GOTO 300 

500 ? CHR* (123): POSITION ID, 2:? "DUNGE 

ON DICE ROLLER": RETURN 
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Orcie and E(&psc 



Drawing a circle in BASIC is difficult and time-consuming. Drawing 
an ellipse is almost impossible. Here are four simple programs using 
the trigonometric SINE and COSINE functions that allow you to draw 
circles and ellipses in the Graphics 7 mode of your Atari. They also 
illustrate how you change the size of the circle and ellipse, which you 
can place anywhere on the screen. If you are drawing in BASIC or 
doing animation they are very useful routines to able to call on: 



100 REM **# CIRCLE *** 

110 GRAPHICS 7: COLOR 1 

120 FOR C=l TO 22 

130 A=A+0. 28: X-SIN (A) *8: Y=COS (A) »8 

140 PLOT X+80,Y+40 

150 NEXT C 



100 REM **# BIB CIRCLE *** 

lie GRAPHICS 7: COLOR 1 

120 FOR C=l TO 22 

130 A=A+0. 28: X=SIN < A) »8: Y=COS < A) »8 

140 PLOT 4»X+80,4»Y+40 

150 NEXT C 



lOO REM **# ELLIPSE *** 

110 GRAPHICS 7: COLOR 1 

120 FOR C=l TO 22 

130 A=A+0. 28: X=SIN (A) »4: Y=COS (A) *B 

140 PLOT X+80,Y+40 

150 NEXT C 



lOO REM *## BIBGER ELLIPSE *»* 

110 GRAPHICS 7: COLOR 1 

120 FOR C=l TO 45 

130 A=A+0. 28: X=SIN (A) *4: Y=COS (A) *8 

140 PLOT 4*X+80,4*Y+40 

150 NEXT C 
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Here is an example of the small circle and ellipse: 



( J 
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Notice that the difference in size is controlled by the PLOT 
commands in line 140 and the size of the FOR-NEXT-loop in line 120 
Experiment with these and with the POSITION command. You'll find 
that you can do very interesting graphic designs with them in ways 
that almost approximate the ease of Turtle Graphics in Atari Logo 
and PILOT. 
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The Sltttp(e Ai^erager 

This program allows you to average numbers. As you enter a list of 
numbers, it gives you a running average and a count of how many 
numbers you have entered. It is convenient for averaging school 
grades, income, or in the climate we come from, daily rainfall. 
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100 REM *** SIMPLE fiVERABER *** 

110 GRAPHICS OIPOKE 752,1 

120 ? CHR«( 125): POSITION 11,2:? "SIMPL 

E AVERAGER" 

130 POSITION 2,5:? "ENTER VALUES - PRE 

SS START TO CLEAR": POSITION 2,8:? "AVE 

RAGE : VALUES : " : T=0 : C=0 

140 TRAP 140: POSITION 2,12:? CHR«(156) 

:P0S1TI0N 2,12:? "?" 

150 IF PEEK (53279) =6 THEN 120 

160 IF PEEK (764) =255 THEN 150 

170 POSITION 2, 12: INPUT N 

180 C=C+1:T=T+N: POSITION 11,8:? INT(T/ 

C»100)/100;" ": POSITION 31,8:? C:G0 

TO 140 
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lfieE95 llmer 



It's not very likely that you have your computer in the kitchen or that 
you'll use it to time your eggs. However, a timing program is a very 
convenient insert into other programs or to use to remind you to 
make a phone call or wake up from a nap. Actually, there are even a few 
kitchen computer freaks who do use their computers to time their 
eggs. 

In this program you enter the number of minutes or seconds 
you want to be timed. The computer will display and count down the 
time, emitting a sound (hopefully pleasant) when it reaches 0. If you 
want, you can change that sound to a Bach fugue or a Mozart sonata. 
Just set up a subroutine at line 310 and set to work programming the 
music of your choice. 
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100 REM *** THE £66 TIHE.R *** 

110 GRAPHICS OIPOKE 752,1 

120 GOSUB 400: POSITION 14,6:? "SET TIM 

ER,.,": POSITION 2,10:? "MINUTES: ";:IN 

PUT M 

130 POSITION 2,12:? "SECONDS: ";: INPUT 
S:IF S<0 OR S>59 THEN POSITION 2. 12:P 
RINT CHR«( 156): SOTO 130 

140 GOSUB 400: POSITION 19-LEN(STR* (M) ) 
,7:? M;":";:iF S<10 THEN ■> "O"; 
150 ? S: POSITION 14,10:? "Press START" 
160 IF PEEK (53279)06 THEN 160 
170 POSITION 14,10:? " "-POK 

E 20,0 
2O0 POSITION 18-LEN(STR*(M)>,7:PRINT " 

"sm;":";:if s<io then print "O"; 
210 PRINT S 

220 IF PEEK (20X60 THEN 220 
230 POKE 20,0:S=S-l:IF S<0 THEN S=59:M 
=M-l:IF M<0 THEN 300 
240 GOTO 200 
300 POKE 764,255 
310 FOR P=9 TO 12 STEP 3: FOR T=15 TO O 

STEP -l: SOUND 0,P,10,T:NEXT T:NEXT P 
320 C=1-C:IF C=l THEN POSITION 14,10:P 
RINT "PRESS ANY KEY" 

330 IF C=0 THEN POSITION 14, 10:PRINT C 
HR*(156) 

340 IF PEEK (53279) =7 AND PEEK (764) =255 

THEN 310 
350 POKE 764, 255: GOTO 120 
400 PRINT CHR*( 125): POSITION 9, 3: PRINT 

"*•» THE EGG TIMER »»,*": RETURN 
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Ifie lil^e Shopper 

This program converts the price of a product to its price per ounce or 
per gram which is useful for comparison shopping. Sometimes, big 
boxes contain a lot of empty space and buying by unit weight' can 
save you money. To use the program, enter the product's total price 
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and then choose ounces or grams before you enter the product 
weight. 

100 REM *** THE HISE SHOPPER »** 

110 GRAPHICS 0:P0KE 752,1: OPEN #1,4.0, 

120 ? CHR*( 123): POSITION 8,2:':' ■■»♦* TH 

E WISE SHOPPER »♦*": POSITION 2,6 

130 TRAP 120:? "ENTER TOTAL PRODUCT PR 

ICE: ";: INPUT P 

^*%« '"^ ""EI'SHT IN (DOUNCES OR (2)GR 

150 SET #1,K:K=K-48:IF K<1 OR K>2 THEN 
150 

160 TRAP 160: POSITION 2,10:? CHR»<156) 

: POSITION 2,10:? "ENTER WEIGHT IN ";:I 

F K«l THEN ? "OUNCES: "; 

170 IF K=2 THEN ? "GRAMS: "; 

180 INPUT W:IF K=l THEN e=INT (28.35»W» 

100) /lOO 

190 IF K=2 THEN G=W: W=INT (e/28.35»100) 
/lOO 

200 POSITION 2,13:? "OUNCES: ";W:POSIT 

ION 2,15:? "PRICE PER OUNCE: ";INT(P/W 

* 1 0000 ) / 1 00 ; " CENTS " 

210 POSITION 2,17:? "GRAMS: "5G:P0SITI 

ON 2,19:? "PRICE PER GRAM: "j:T=INT<P/ 

Q*10000)/100:IF T>0 THEN ? T; " CENTS" 

220 IF T=0 THEN ? "-" 

230 POSITION 13,22:? "PRESS ANY KEY"-P 

OKE 764,255 

240 IF PEEK (764) =235 THEN 240 

250 POKE 764, 255: GOTO 120 
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Metric Converts 

This is a simple conversion utiUty. It allows you to convert the fol- 
lowing pairs into each other's units of measurement: centimeters/ 
inches; meters/yards; and kilometers/miles. 
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100 REM #** HETRIC CONVERTS *** 

110 GRAPHICS OIPOKE 752,1 ."OPEN #1,4,0, 

llt^a 11 V r V 

120 ? CHR»< 125): POSITION 11,2:'' "METRl 
C CONVERSIONS": POSIT ION 2,5 
130 ? "1. CENTIMETER TO INCH":"? "2. ME 
TER TO YARD":? "3. KILOMETER TO MILE" 
140 ? "4. INCH TO CENTIMETER":? "5. YA 
RD TO METER":? "6. MILE TO KILOMETER" 
150 BET »l,K:K=K-4a:IF K< 1 OR K>6 THEN 
150 

160 POSITION 2, 14: FOR T=l TO S:"? CHR* ( 

156): NEXT T: POSITION 2, 14: ON K GOTO 20 

0, 210, 220, 230, 240, 250 

200 ? "CENTIMETERS ";: INPUT N:A=N*0.39 

4:? :? "INCHES ";A:G0T0 150 

210 ? "METERS ";: INPUT N: A=N*1 .094: •? : 

? "YARDS ";A:G0T0 150 

220 ? "KILOMETERS ";: INPUT N:A=N*0,621 

4:? :? "MILES ";a:goto iso 

230 ? "INCHES ";: INPUT N: A=N»2. 538: -^^ : 

? "CENTIMETERS "5 A: SOTO 150 

240 ? "YARDS ";: INPUT N: A=N*0. 914: ? :r> 

"METERS ";A:G0T0 150 
250 ? "MILES ";: INPUT N:A-N»1.6:? :r> " 
KILOMETERS ";A:BOTO 150 



Here are the lines where the conversion formulas are stored. You can 
change them if you want to provide other conversions such as pounds 
into ounces (using the formula OUNCE=POUND*16), Fahrenheit 
into Centigrade, tons into pounds, yards into feet, etc. 



200 ? "CENTIMETERS ";: INPUT N:A=N»0.39 

4:? :? "INCHES ";a:goto 150 

210 ? "METERS ";: INPUT N: A=N*1 . 094: ? : 

? "YARDS ";A:G0T0 150 

220 ? "KILOMETERS ";: INPUT N:A=N»0.621 

4:? :? "MILES "5 A: GOTO 150 

230 ? "INCHES ";: INPUT N: A=N*2. 53B:'? : 

? "CENTIMETERS ";A:GOTO 150 

240 ? "YARDS ";: INPUT N: A=N*0. 914: ? :? 

"METERS "!A:G0T0 150 
250 ? "MILES ";: INPUT N:A*N»1.6:? :? " 
KILOMETERS ";A:BOTO 150 
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TyedmaC/Hex/mnary OmversUm 

This program is very useful for people who work with computers It 
converts numbers from the binary, decimal, and hexadecimal (base 16) 
number systems into equivalent form in the other systems You can 
start with any of the three systems and get the equivalent in the other 
two systems. In case you are not familiar with some of these systems 
of numeration, here is a summary of how they work: 



Base. 10: Symbofs 0123456789 

The base 10 system is the one we all learn first. It has ten symbols and 
uses the powers of ten to change place value. Thus, counting in base 
10 goes as follows: 

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17 

Note that once all the symbols are used up you move over one place 
(from 9 to 10). The powers of ten that are given in the following chart 
determine the values of the symbols: 

103 102 10^ 100 
1000 100 10 1 

Thus, the number 1234 actually means: 
1*10* +2*102 +3*101 +4+10° =1234 

You might remember learning this in fifth or sixth grade though most 
people usually forget it quickly since they don't need to know it in 
order to calculate. However, when you move from one base system 
into another the question of place value is crucial. 
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Base 2i Symbols 1 

There are only two symbols in base 2: and 1, which is why it is so 
important for computer programming. Every computer is a complex 
and well-organized collection of ON and OFF switches that can be 
represented by 1 (ON) and O(OFF). The language your computer under- 
stands is base 2 machine language and everything you type in has to 
be translated into a base 2 system before the computer can process it. 
Base 2 functions structurally like base ten. It uses place values only 
they represent powers of 2 instead of powers of 10. Here are the values 
of the first four places in a base 2 number system: 

23 22 2' 29 

value 8 4 2 1 

Here are the numbers from 1 to 10 in base 2: 

1, 10, 11, 100.101, 110, 111, 1000, 1001, 1010 

To understand this, let's take a closer look at 10 which is represented 
in base 2 as 1010 and translate it to base 10: 

1010=1*23 +0*22 +1*2' +0*20 =8+0+2+0=10 

Base 2 is a natural language for programming computers. However, 
programming in this machine language is tedious and leads to many 
errors. For example, imagine trying to copy this machine language 
program without making an error or going to sleep: 

1011100010101010 
1100000100011001 
0110010101010101 
1000001001100010 
1111100100010101 

In order to facihtate programming on a level that is close to machine 
language and that runs more quickly than BASIC (which has to be 
translated into machine language internally before it can be RUN by 
the computer) an intermediate code using base 16 (called the hexade- 
cimal system] is often used. The reason for this is that four places in 
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the binary system (i.e., 2 to the 4th power of 2»2*2*2) equal 16 and, so, 
one digit in the hexadecimal system can represent four in the binary 
system. Here is the hex symbolism. If you want to learn more about 
this you should consult an introductory book that has a chapter on 
assembly language programming. 



Base 16 Num6er System (HGuutedmat): 
Symbols 0123456789ABCDEF 

The letters A, B, C, D, E, F represent the base 10 numbers 10, 1 1, 12, 
13, 14 and 15. 

Counting from 1 to 10 in HEX looks like this: 1, 2, 3, 4, 5, 6, 7, 8, 
9, A. Here are the HEX place values: 

163 162 iei igo 
values 4096 256 16 1 

Thus lOOA in Hex would be: 

1*163 +0*162 +0*16^ +10*16° =4096+0+0+10=5006 in base 10. 

Enough of the details. Here is a conversion program which might 
come in handy if you do machine or assembly language programming: 



■>ECIMA1./HEK/'BZNARY CONWERSXON 
DECIMAL: 245 
HEK: rSM 

BZNARv: ixixexexB 



ENTER VALUE: ? 
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100 REM **# D£CIMf)L/H£X/BlNARy *** 
110 DIM T*(21),B*(20),H«(5),D»(7),E«(3 
7) , HH* ( 16) , B ( 19) , H (4) : E» ( 1 ) =" " : E« (37) 
=" ":E* (2) =E»: GRAPHICS 0:POKE 752,1 
120 ? CHR*( 125): POSITION 5,2:? "DECIMA 

l/hex/binary conversion" 

130 d»="0":h*=d*:b*=d«:gosub &oo 

140 FOR T=0 TO 4: READ K:H(T) =K:B(T*4)= 

k:for j=i to 3:read k:b(t*4+j)=k:next 
j : nex t t : hh*= "01 23456789abcdef " 

200 TRAP 200:P0SJTI0N 2,14:? E»:POSITI 

ON 2,14:? "ENTER VALUE: ";: INPUT T« 

210 L=LEN(T»):IF T*(L,L)="B" THEN 400 

220 IF T»(L,L)="H" THEN 500 

230 D=VAL(T*):D*=T*:IF D> 1048575 THEN 

200 

300 R=1:IF D>255 THEN R=3: IF D>65535 T 
HEN R=4 

310 h»="":k=d:for t=r to o step -i:j=i 
nt<k/h(T)):k=k-j»h(T):h*(len(h*)+i)=hh 

*<J+1,J+1):NEXT t 

350 R=7:IF D>255 THEN R=15: IF D>65535 

THEN R=19 

360 B*="":K=D:F0R T=R to STEP -l:J=I 

NT (K/B (T) ) :K=K-J*B <T) : B% (LEN <B*) +1 ) =ST 

R* (J): NEXT T:GOSUB 600: GOTO 200 

400 D=0:C=0:FOR T=L-1 TO 1 STEP -1:IF 

T*<T,T)="1" THEN D=D+B(C) :GOTO 420 

410 IF T*(T,T)<>"0" THEN 200 

420 C=C+1:NEXT T:D»=STR*(D):G0T0 300 

500 d=o:c=o:for t=l-i to i step -i:a=a 

SC(T»(T,T)):IF A>64 and A<71 THEN A=A- 

55: GOTO 530 

510 IF A<48 or A>57 THEN 200 

320 A=A-48 

530 D=D+A«H ( C ) : C=C+ 1 : NE X T T 

540 D*=STR«(D):GOTO 300 

600 FOR T=0 TO 2: POSITION 2,5+2*T:'? E« 

:NEXT T: POSITION 2,5:? "DECIMAL: ";D*: 

? :? " HEX: ";h*;"H" 

610 ? :? " BINARY: ";B»; "B": RETURN 

800 DATA 1,2,4,8,16,32,64,128,256,512, 

1024, 2048, 4096, 8192, 16384, 32768, 65536. 

131072, 2621 44, 524288 



114 



Finaie 

41 

A Computer Bating Service 

And now, to end the book (almost) on an up note, here is a very hberal 
dating program. The program is set up to record the answers to 20 
questions after taking your name and phone number and assigning 
you a code number. When you have completed your profile, you can 
store the program on disk. One person a dating program does not 
make. Therefore, you have to gather data from a lot of people before it 
can begin to match their responses and come up with what, from its 
point of view (really our point of view since a computer does not have 
convictions or sets up criteria for matching), is your ideal mate from 
the available pool. 
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100 REM * COHPUTE.fi DfiTINS SEKVICE * 
110 DIM N*(30),NA*(3000),P*(15),PA»(15 
00) , T» (40) , Q (99, 19) : OPEN #1 , 4, 0, "K: " : N 

A*(l)=" '■:NA»(3000)= NA*(2)=NA* 

120 PA»=NA*: GRAPHICS 0:POKE 752,1 

130 GOSUB 900: POSITION 2,6:? "1, Add a 

person to dating pool":? :'' "2. Selec 
t a date" 
140 ? :? "3. Save data bank to disk":? 

:? "4. Load data bank from disk" 
150 GET «1,K:K=K-48:IF K<1 OR K>4 THEN 

150 
160 ON K GOTO 500,200,800,850 
200 GOSUB 900:? "Enter you I.D. number 

":? : INPUT n:if n<o or n>=c then 130 

210 ? :? "FINDING A DATE FOR:":? NA«(N 

♦30+l,N»30+30):? PA*(N»15+1,N»15+15) 
220 DD=0:DT=0:FOR T=0 TO C-1:TT>«0 

230 IF T=N THEN 400 

300 IF Q(N, 1)=Q(T,0) THEN TT=TT+50 
305 IF Q(T,1)=Q(N,0) THEN TT=TT+50 
310 IF Q(N,3)=Q(T,2) THEN TT=TT+25 
315 IF Q(T,3)=Q(N,2) THEN TT=TT+25 
320 IF a(N,5)=Q(T,4) THEN TT=TT+25 
325 IF Q(T,5)=Q(N,4) THEN TT=TT+25 
330 IF a(N,6)=Q(T,6) THEN TT=TT+50 
335 IF Q(N,7)=Q(T,7) THEN TT=TT+50 
340 IF Q(N,8)=Q(T,8) THEN TT=TT+50 
345 IF Q(N, 10)=Q(T,9) THEN TT=TT+25 
350 IF Q(T,10)=Q(N,9) THEN TT=TT+25 
355 IF Q(N, 11)=Q(T,11) THEN TT=TT+25 
360 IF Q(N, 12)=Q(T,12) 
365 IF Q(N, 13)=Q(T,13) 
370 IF Q(N, 14)=Q(T,14) 
375 IF Q(N,16)=Q(T,15) 
380 IF Q(T,16)=Q(N,15) 
385 IF Q(N, 17)=Q(T, 17) 

390 IF Q(N, 19)=Q(T,18) _ 

395 IF Q(T, 19)=Q(N, 18) THEN TT=TT+25 

400 IF TT>DT THEN DT=TT:DD=T 

410 NEXT T:? :? 

420 ? "Your ideal date is:":? NA*(DD»3 

O+l , DD»30+30) : ? PA* (DD«15+1 , DD*15+15) : 

FOR T=l TO 1000:NEXT T:60T0 130 

500 BOSUB 900:? "Enter your name":? :I 

NPUT N* : NA* ( C»30+ 1 , C»30+30 ) =N* 

510 GOSUB 900:? "Phone Number":? : INPU 

T P»:PA*(C»15+1,C»15+15)=P« 

520 RESTORE 600:F0R T"=0 TO 19: GOSUB 90 

0:READ T»:? T»:READ T»:? T« 

530 GET «1,K:K=K-48:IF K<1 OR K>3 THEN 

530 



THEN TT=TT+50 
THEN TT=TT+25 
THEN TT=TT+25 
THEN TT=TT+25 
THEN TT=TT+25 
THEN 'TT=TT+25 
THEN TT=TT+25 
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540 Q(C,T)=K:NEXT t 

550 ? :? N»:? "Your I.D, number is ";C 

IFOR T=l TO 1000: NEXT T:C=C+1:G0T0 130 

600 DATA Are you (l)Male (2)F«mal« (3) 

Both, 

605 DATA Do you wish to date a (DMale 

, (2) Female (3) Both 

610 DATA Are you ( 1 ) Young (2>Middle-ag 

ed, (3)01d 

615 DATA Is your ideal date (l)Young,( 

2) Middle-aged (3) Old 

620 DATA How attractive arB you (l)Ext 

remely, (2) Moderately (3) Not very 

625 DATA How attractive is your ideal 

date, (DExtremely (2)Moderately (3)Nat 

very 
630 DATA Where would you like to go on 

a -first, date (l)Movie (2)Dancing <3)M 
otel 

635 DATA Are you an (l)Outdoor person, 

(2) Indoor person (3)Both 

640 DATA How important is sex (l)Very, 

<2)Fairly (3)Not very 

645 DATA Are you artistic (l)Yes (2)No 

, (3) Sort o-f 

650 DATA Mould you like your date to b 

e, artistic (l)Yes (2)No <3)Sort o-f 

655 DATA How do you feel about kids, (1 

)Love them (2) Hate them (3) Both 

660 DATA Do you enjoy alcohol or drugs 

,(l)Yes (2)No (3>Sometimes 

665 DATA Which type o-f music do you li 

ke most, (l)Classical (2) Rock (3)Countr 

y 

670 DATA How much television do you wa 
tch,(l)Quite a bit (2)Some (3)Very lit 
tie 

675 DATA Are you (1) Weal thy (2) Doing o 

kay, (3)6etting by 

680 DATA Is your ideal date (1) Weal thy 

, (2)0oing okay (3)6etting by 

685 DATA Are your habits (l)Unhealthy, 

(2) Healthy (3) No habits 

690 DATA Are you usually (l)Happy (2)U 

nhappy, (3) Both 

695 DATA Is your ideal date usually (1 

) Happy, (2) Unhappy (3>Both 

800 TRAP 820: CLOSE #2: OPEN #2,8,0, "D:D 

ATING.DAT": PUT #2,C:F0R T=0 TO C-1:PRI 

NT «2 ; NAS ( T»30+ 1 , T»30+30 ) 

BIO PRINT #2!PA*(T»15+1,T»15+15):F0R J 

=0 TO 19:PUT #2,Q(T,J):NEXT J:NEXT T 
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820 CLOSE #2: GOTO 130 

850 TRAP 820: CLOSE #2: OPEN #2,4,0,"D:D 

ATINB.DAT": GET »2,C:F0R T=0 TO C-1:INP 

UT #2;T*:NA«(T»30+1,T*30+30)=T» 

860 INPUT #2;T»:PA*(T»15+1,T*15+15)=T« 

■7SL^°° '^° ^'^"^^"^ *2,K:Q(T,J)=K:NEXT 
J: NEXT TIGOTO 820 

900 PRINT CHR*( 125): POSITION 9,3:'' "CO 
MPUTER DATING SERVICE": POSITION 2. 6: RE 
TURN 

Notice that the questions are all listed in the following data 
statements: 



600 DATA Are you (l)Male (2) Female (3) 
Both, 

605 DATA Do you wish to date a (l)Male 
, (2) Female (3) Both 

610 DATA Are you (1) Young (2)Middle-aa 
ed,(3)01d 

615 DATA Is your ideal date (l)Young. ( 
2)Middle-aged (3)01d 

620 DATA How attractive are you (DExt 
remely, (2)Moderately (3)Not very 
625 DATA How attractive is your ideal 
date, (l)Extremely (2) Moderately (3) Not 
very 

630 DATA Where would you like to go on 
a -first, date (l)Movie (2)Dancing <3)M 
otel 

635 DATA Are you an (DOutdoor person, 

(2) Indoor person (3) Both 

640 DATA How important is sex (l)Very 

(2) Fairly (3) Not very 

645 DATA Are you artistic (l)Yes (2) No 

, <3)Sort o-f 

650 DATA Would you like your date to b 

e, artistic (DYes (2)No (3)Sort o-f 

655 DATA How do you feel about kids, (1 

)Love them (2) Hate them (3) Both 

660 DATA Do you enjoy alcohol or drugs 

,(l)YeB (2)No (3)Sometimes 

665 DATA Which type o-f music do you li 

ke most, (l)Classical (2>Rock (3)Countr 

y 

670 DATA How much television do you wa 

tch, (l)Quite a bit (2)Some (3)Very lit 

tie 

675 DATA Are you (l)Wealthy (2) Doing o 

kay, (3)Setting by 
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680 DATA Is your ideal date (1) Weal thy 

, (2) Doing okay (3) Getting by 

685 DATA Are your habits (1) Unheal thy, 

(2) Healthy (3>No habits 

690 DATA Are you usually (l)Happy (2)U 

nhappy, (3) Both 

69S DATA Is your ideal date usually (1 

> Happy, (2) Unhappy (3) Both 

The liberality of the program shows in the very first question. It 
allows for you to be male, female, or both. The second question allows 
you to date the sexual preferences of your choice. Of course, you 
might feel this program goes too far. All you have to do is list the data 
statements and change them to suit your own ways of looking at the 
problem of finding a best mate or date. Just be sure that each change 
you make goes on one data line. The weighting factors built into the 
program can also be changed if you have some programming expe- 
rience. You'll find them in the SCO's. 



1/2 cf ls/\any Tfungs Ton Can 
Do Wttft Tour Computer 

You can use the programs as they are listed in this book. You can also 
consider them program forms that provide a framework for develop- 
ing new programs on your own. Here are a number of ideas that take 
off from the 41 programs we have worked out. They provide you 1/2 
of what you need to develop applications for your computers. The 
other half, the new programs themselves, are for you to work out. 

1 An Ait'Purposc Instntment Tuner 

One of the programs in this book provides a guitar tuner. Using the 
sound capabilities of your computer, you can also create a saxophone, 
clarinet, violin, fiddle, trumpet, or all-purpose instrument tuner. 
Instead of string diagrams, you would have to suit the graphics to the 
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nature of the different instruments and, therefore, have many differ- 
ent graphics screens in your program. 

2 AMuMc Tutor 

This program would extend the notion of a guitar chord tutor. It could 
show the fingering of woodwinds, the valve positions on brass, etc. 
You could even develop an extensive music teaching program. 

3 A Game Spinner 

You can use some of the same ideas used in the Dungeons and 
Dragons dice maker to create a game spinner. The spinner differs 
from a usual die in that it can have the same values on different 
sections, or it can have verbal instructions or game moves on it. 
Different sections can also be weighted so that there is not the same 
probability of getting each possible result. Here is an example of what 
a spinner might look like: 
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On the sample spinner there is a greater chance of landing in jai: 
than collecting money. Notice that the instructions on the spinne] 
refer to game moves and to paying or collecting money. These differ 
ent modes and weights can easily be incorporated into a customizec 
game spinner program. 



4 A Spot Screen Note Pad 

Try to create a note pad that splits the screen in half so that you can 
write on either half, or write on one half and make sketches and notes 
on the other half. Try to build in a way to press a letter or number 
which allows you to control which part of the screen you use. 



5 A Catcuiator with Manory 

Add a memory storage capability to the calculator program so that 
the results of any calculation can be stored and then used at another 
time. 



6 Animated Gues$i$ig Games 

Modify the Gestalt guessing game so that you see small figures rtin- 
ning all around the screen and have to guess how many there are. 
Remember that animation can easily be done using Control graphics 
and clearing the screen after each positioning of your figures. When 
you draw a figure, clear the screen and then draw the figure in a 
slightly different position or posture you create the illusion of 
animation. 



7 Mandtda Metfitotion 

Create your own meditation programs playing with the color function 
of your computer. Add sound to the program and see if you can create 
a multimedia work of art. 
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8 Fie Cfuat and Line Graph Generator 

The bar graph generator presented in the book is only one of many 
graph forms that can be programmed. Try to make a hne graph. 
(Remember that the bar graph can easily be turned into a line graph 
by turning it on its side and drawing lines from the top points.) Also 
create a pie graph generator. A pie graph generating program can also 
be used in a game spinner generating program. 

9 Mubipte Sorting AMre&s Card Hie 

Modify the address file program so that you can sort by state, city, 
phone number, and comments as well as by name. What this requires 
is that you build routines similar to the one used in the program in 
this book to do name sorting for each line in the address book entry. 

10 Pro/Ue Miy Sfiots 

Using character graphics, change the Mug Shot program from one 
that uses full faces to one that uses profiles. 

11 MuiUQngiud IHcdonaiy 

Create a multilingual dictionary. For example, create a dictionary in 
five languages. Set up the program so that you have a few entries to 
begin with (for example all the pronouns in five different languages) 
and then new entries can be added and saved on disk. This way you 
will not merely have a multilingual dictionary but a dictionary form. 
As you learn more vocabulary, you build your dictionary. Many of the 
routines needed to create such a program can be taken from programs 
listed in this book (the disk storage routine, for example). 

12 Prime TUtuniber Generator 

Create a program that starts at 1 and lists the first n prime numbers 
for any integer n. Add another routine to the program in which you 
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input any integer and the computer tells you whether it is prime or 
not. 



13 Least Common Denominator 

Here is another homework helper program. Set up the computer so 
that it will list all the common denominators of any two or three 
numbers and also list the least common denominator. 



14 A Book Title Generator 

We included an excuse generator in our 41 programs. See if you can 
create a book title generator using some of the common book title 
forms such as: 

A (1) in the (2) 



List (1) List (2) 

flash pan 

day life 

scream wilderness 

giving such variations as 

A Flash in the Wilderness and 
A Day in the Pan. 

Some other title forms to play with are: The (1) of the 

(2) and To (1) a (2) 



15 A Code Maker 

Create a program that will scramble the whole alphabet (instead of 
just a word as in our Word Scrambler) and then turn that scrambling 
into a code. The program should let you put in a word or sentence and 
give you the coded version. It should also let you put in a message in 
that code and translate it back into English. 
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$6.95 

411/2 FUN PROJECTS FOR THE ATARI® 
Dale Disharoon & Herbert Kohl 



Do you remember the day you brought your shiny new Atari 
home? What an exciting time! At first it seemed as if you could 
think of thousands of ways it would make your hfe easier, 
better, and more fun. However, if you're like most people, as 
the months rolled by and the novelty of owning a computer 
subsided, routine chores slowly replaced that initial 
anticipation. 

4IV2 FUN PROJECTS FOR THE ATARI® gives you 
back that wonderful excitement. One of the first Creative 
Pastimes books, from the Reston Computer Group, this 
fantastic book shows you 41'/2 good reasons to fall in love with 
your Atari all over again. 

In a burst of creative energy. Dale Disharoon and Herbert 
Kohl deliver some fresh ideas that you'll find easy to key in 
and modify. The AVA projects range all the way from a 
dating program to a mini word processor. You'll be 
absolutely obsessed with a Dungeons and Dragons dice 
rolling program, and you'll probably want to take full 
advantage of the innovative strategy and music games. 
Practically speaking, programs such as a guitar tuner ' 
and chord teacher, a metric converter, and a 
comparison shopping program truly make your life 
easier. 




A Creative Pastimes Book 
RESTON PUBLISHING COMPANY, INC 

A Prentice-Hall Company 
Reston, Virginia 
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